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NOTATION 


a.  constants  for  Cohen-Metzner  porosity  correlations 

a(j,k)  interfacial  area  between  j-th  and  k-th  radial  plugs  per  unit 
bed  length  (equations  (20),  (22))  (L) 
a(s,w)  interfacial  area  between  N-th  solid  plug  and  stagnant  wall  film 
per  unit  bed  length  (L) 

2 

void  cross-sectional  area  of  i-th  radial  plug  (L  ) 

A concentration  vector  for  A-half-cell  of  n-th  A/B  cell 

A*  heat  transfer  area  ratio  (equation  (27))  (L/L) 

2 

At  total  tube  cross-sectional  area  (L  ) 

Atube  At 

B collection  of  heat  transfer  terms  (equation  (28)  or  (35)) 

B concentration  vector  for  B-half-cell  of  n-th  A/B  cell 

— n 

3 

C concentration  (mol/L  ) 

3 

C*  two  plug  verage  concentration  (equation  54)  (mol/L  ) 

CA  A-half-cell  concentration  vector  equations  (74),  (75)) 

CB  B-half-cell  concentration  vector  (equations  (74),  (75)) 

C fluid  specific  heat  (q/M-0) 

P 

d diameter  of  cylindrical  pellet  (equation  (28))  (L) 

d^  delay  time  in  i-th  radial  plug 

dp  pellet  diameter  (L) 


V 


Da  axial  mass  dispersion  coefficient  (equation  (1))  (L  / t) 

De  effective  diffusivity  of  key  component  in  catalyst  material 

(L^/t) 

2 

Dr  radial  mass  dispersion  coefficient  (equation  (1))  (L  / t) 

Dt  tube  diameter  (L) 

f friction  factor 

g rate  constant  exponent  (equation  52)  (0) 

2 

g units  conversion  factor  (e.g.  32.2  ft.-lb^/lb£-5  ) 

2 

G mass  velocity  (M/L  - t) 

2 

hp  pellet  film  heat  transfer  coefficient  (q/t-L  -0) 

2 

hw  wall  film  heat  transfer  coefficient  (q/t-L  -0) 

h*  stagment  film  heat  transfer  coefficient  (equation  (33)) 

(q/t-L^-0) 

(-AH)  heat  of  reaction  (q/mol) 

H.  hydraulic  resistance  of  i-th  radial  plug 

k reaction  rate  constant 

k rate  constant  premultiplier  (equation  (51)) 

o 

K'  constant  for  equation  (41) 

K"  constant  for  equation  (42) 

Kw  constant  for  equation  (45) 

i length  of  cylindrical  pellet  (equation  (46)) (L) 

L total  vessel  length;  or,  if  used  in  conjunction  with  catalyst 

pellet,  L = Vp/Sp  (L) 


m 


flow  rate  exponent  (equation  (45)) 

N total  number  of  radial  plugs  in  any  half -cell  (or,  total  num- 

ber of  void  plugs  in  one  A/B  cell) 

N number  of  repeating  A/B  cells  in  a packed  bed 

axial 

Nrad  N 

P general  physical  property  (equations  (79),  (80));  pressure 

elsewhere 

3 

Qt  total  volumetric  flow  rate  (L  ft) 

Qtot  Qt 

3 

Q volumetric  flow  rate  through  j-th  radial  plug  (L  ft) 

j 

r radial  position  (dimensional  for  equations  (1) , (19) ; dimen- 

sionless elsewhere) 

3 

r intrinsic  reaction  rate  (equation  (51))  (mol/t-L 

c catalyst 

r (i,j)-th  element  of  R 

ij 

R A-to-B  mixing  matrix 

Rt  tube  radius  (L) 

Rtube  Rt 

Re  Reynolds  number 

R^  global  rate  of  reaction  (mol/t);RQ  = Rq/z  (mol/t-L) 

Rh  hydraulic  radius  (L) 

s Laplace  variable  (1/t) 

S.  . (i,i)-th  element  of  S 

ij 

S B-to-A  mixing  matrix 

3 

Sp  catalyst  pellet  surface  area  (L  ) 


Vll 


Sp'  Sp  per  unit  vessel  length  (equation  (60)),  (L) 
t solid  temperature  (0) 

t^  temperature  of  solid  plug  at  inner  radius  (equations  (25), 
(34)), (0) 

t^^^  temperature  of  solid  plug  at  outer  radius  (equation  (26)) 

(0) 

T fluid  temperature  (0) 

T*  two-plug  average  temperature  (equation  (54)), (0) 

TA  A-half-cell  temperature  (equations  (74),  (75)) 

TB  B-half-cell  temperature  vector  (equations  (74),  (75) 

Twall  wall  temperature  (0) 

u fluid  velocity  (L/t) 

u'  bed  average  velocity  (L/t) 

3 

Vp  catalyst  pellet  volume  (L  ) 

w^  weighting  factors  for  R and  S (equation  (8)) 

X radial  distance  inward  from  tube  wall  (units  of  dp) 

Y parameter  group  for  equation  (70) 

z axial  coordinate  (L) 

Z Ztot 

.Zc  length  of  one  A/B  cell  (L) 

Ztot  total  bed  length  (L) 
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Greek 

6 proportionality  constant 

Y shape  factor  for  hp  (equation  (50))  (y  = 1.0  for  spheres, 

1.33  for  cylinders) 

6 tube  material  roughness  (L) 

3,  3 

e bed  void  fraction  (L  /L  ) 

9^  A-half-cell  delay  time  matrix 

fig  B-half-cell  delay  time  matrix 

X effective  thermal  conductivity  (equation  (19)) 

(q/L-t-9) 

thermal  conductivity  of  solid  packing  material 
(q/L-t-6) 

2 

U fluid  viscosity  (M/L  -t) 

3 

p fluid  density  (M/L  ) 

T bed-averaged  hold-up  time  (t) 

<()  Thiele  modulus  (equation  (52));  or  functional  form  (Table  6) 
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Subscripts 


a 

radially  averaged  value 

b 

bulk  or  bed-averaged 

base 

base  case  value 

c 

at  bed  centerline 

b 

hydraulic 

hi 

upper  value 

in 

inlet 

int 

interstitial 

lo 

lower  value 

n 

axial  cell  number 

out 

outlet 

P 

particle  (except  for  C^) 

s 

solid  (packing)  material 

sup 

superf icial 

t 

Units 

two  or  total 

L 

length 

M 

mass 

q 

heat  (e.g.  cal) 

t 

time 

0 

temperature 

X 


Abstract  of  Dissertation  Presented  to  the  Graduate  School 
of  the  University  of  Florida  in  Partial  Fulfillment  of  the 
Requirements  for  the  Degree  of  Doctor  of  Philosophy 


ALTERNATING  FLOW  MODEL  FOR  DISPERSION  IN  PACKED  BEDS 

By 

KAREN  J.  KLINGMAN 
December,  1985 

Chairman;  Dr.  H.  H.  Lee 

Major  Department:  Chemical  Engineering 

The  Alternating  Flow  Model  (AFM)  views  dispersion  in  packed  beds 
as  a sequence  of  streamline  plugs  which  must  repeatedly  split  and 
merge  as  the  bulk  fluid  traverses  the  vessel.  Thus,  the  flow  in  the 
AFM  is  ordered,  as  opposed  to  the  random  flow  implied  by  the  Fickian 
analogy. 

For  mass  dispersion  only,  model  parameters  arise  from  a priori 
consideration  of  packing  geometry.  Steady-state  and  transient  data 
(5.6  < Dt/dp  < 54.4,  100  < Re^  < 1000,  gases  and  liquids)  show  the 
AFM  to  surpass  the  Fickian  analogy  in  moat  cases.  Further,  the  AFM 
can  describe  well  the  radial  velocity  profiles  in  packed  beds. 


xi 


Alternating  Flow  Model  heat  transfer  parameters  wall  and  pellet 
film  resistances  are  not  a priori  functions  of  packing  geometry.  Fit- 
ting the  AFM  to  steady-state  temperature  data  (air,  5 < Dt/dp  < 14,  2 
< RCp  < 1300,  cylindrical  and  spherical  pellets)  validates  a single 
correlation  of  hp  versus  dp  and  flow  rate  and  justifies  a simple  form 
for  correlating  hw  versus  flow  rate.  Comparison  with  experiments 
shows  the  AFM  to  equal  or  surpass  the  back-fit  Fickian  analogy. 

For  reaction,  the  AFM  combines  the  concepts  of  simple  mass  and 
heat  dispersion  with  the  only  additional  parameters  associated 
directly  with  the  reaction  itself  (e.g.  intrinsic  rate  expression, 
heat  of  reaction,  etc.)  AFM-predicted  conversion  and  temperature  pro- 
files in  both  wall-cooled  and  adiabatic  reactors  differ  significantly 
from  those  predicted  by  the  Fickian  analogy  for  the  given  example  sys- 
tem. The  difference  in  the  models'  predictions  of  reactor  stability 
characteristics  can  be  attributed  to  their  respective  radial  flow  pro- 
files. This  implies  that  the  AFil,  with  its  ability  to  describe  this 
flow  behavior,  should  be  further  explored  as  a packed  bed  reactor 
design  tool. 
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CHAPTER  I 
INTRODUCTION 

Consider  the  problem  of  describing  the  concentration  profile 
which  develops  as  dye  is  injected  into  a clear  fluid  flowing  through 
a tubular  packed  bed.  After  some  period  of  time,  the  dye  concen- 
tration will  be  maximum  at  the  injection  point  and  will  decrease  as 
the  distance  from  the  injection  point  increases  both  radially  and 
axially  in  the  direction  of  flow.  This  dye  dilution  is  the  simplest 
case  of  dispersion  in  packed  beds.  If  the  dye  reacts  in  the  bulk 
fluid  or  on  the  pellets,  or  if  the  dye  adsorbs  on  the  solid  surfaces 
and  if  heat  dispersion  accompanies  the  dispersion  of  mass,  the  pro- 
blem becomes  more  complex,  but  a basic  understanding  of  the  mass  dis- 
persion phenomenon  alone  is  needed  before  moving  up  the  hierarchy. 

It  is  therefore  the  intent  in  this  paper  to  present  a packed  bed  dis- 
persion model  which  is  based  on  the  physical  behavior  of  the  bulk 
fluid  as  it  travels  around  the  packing. 

Dispersion  in  packed  beds  has  traditionally  been  modeled  by 
analogy  to  Fickian  diffusion,  e.g.,  for  a constant  density  fluid 
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where  the  axial  and  radial  dispersion  coefficients  Da  and  Dr  are  effec- 
tive parameters  which  account  for  the  presence  of  packing  material. 

It  should  be  noted  here  that  equation  (1)  can  be  developed  by 
assuming  random  motion  of  particles  moving  through  the  vessel  (Baron, 
1952;  Jacques  and  Vermeulen,  1957;  Klinkenberg  and  Sjenitzer,  1956). 
The  usual  procedure  for  modeling  packed  beds  is  to  obtain  the  dis- 
persion coefficients  and  then  to  solve  (1)  either  analytically  or 
numerically  for  the  appropriate  boundary  conditions. 

An  acceptable  dispersion  model  should  at  the  very  least  ade- 
quately describe  the  simplest  problem  of  injecting  non-reacting  dye 
into  a clear  stream  flowing  through  a bed  packed  with  non-porous 
beads.  The  solution  of  (1)  for  the  simple  dye  injection  problem 
predicts  backmixing  in  the  steady  state  (Hiby,  1963)  where  none  is 
observed  experimentally. 

Mixing  cell  models  (Deans  and  Lapidus,  1960;  Lapidus  and  Amund- 
son, 1977;  Olbrich  et  al.,  1966)  overcome  the  backmixing  problem 
but  predict  that  concentration  wavefronts  travel  at  infinite  speed, 
i.e.  any  change  in  inlet  concentration  is  immediately  seen  at  the  bed 
outlet.  Experimental  observations  (Sundaresan  et  al.,  1980)  indi- 
cate that  concentration  propogates  at  a finite  speed.  Also,  no 
standard  technique  for  sizing  the  individual  mixing  cells  is  available. 

A more  recent  crossflow  model  (Hinduja,  1977;  Hinduja  et  al., 
1980)  is  based  on  the  concept  that  the  flow  around  pellets  creates 
two  regimes — a stagnant  wake  behind  each  pellet  and  moving  streams 
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travelling  between  pellets.  The  wakes  are  assumed  to  shed/receive  a 
certain  amount  of  fluid  to/ from  the  moving  streams  and  the  packing  is 
characterized  by  a parameter  which  accounts  for  the  radial  distance 
over  which  the  packing  pattern  repeats  itself.  Hinduja  (1977)  recom- 
mends determining  the  cross-flow  characteristic  parameters  from  the 
correlations  of  effective  Fickian  dispersion  coefficients.  It  should 
also  be  noted  that  for  the  simple  dye  injection  problem,  the  cross- 
flow  model  equations  reduce  to  the  Fickian  dispersion  model. 

Other  researchers  have  also  proposed  stochastic  (Schmalzer  and 
Hoelscher,  1971),  capillary  (Lippert  and  Schneider,  1979),  and  proba- 
bilistic time-delay  models  (Buffham,  1971)  for  packed  beds.  In  addi- 
tion, the  literature  provides  several  reviews  of  and  cautions  regard- 
ing packed  bed  models  (Aris  and  Amundson,  1957;  Beek,  1962;  Bischoff 
and  Levenspiel,  1962;  Froraent , 1967,  1972;  Gunn,  1968;  Hiby,  1963; 
Levenspiel,  1963;  Vortmeyer  and  Winter,  1984). 

What,  then,  are  the  characteristics  of  an  acceptable  packed  bed 
dispersion  model?  The  model  should  provide  the  correct  steady-state 
form  (axial  and  radial  spreading,  no  back-mixing,  agreement  with 
experimental  data)  and  should  predict  the  correct  transient  behavior 
(finite  speed  of  propagation,  conservation  system)  Sundaresan  et  al., 
1980).  The  model  should  also  properly  represent  the  flow  around  pack- 
ing, its  solution,  analytical  or  numerical,  should  be  straight- 
forward, and  its  corresponding  parameters  should  be  well-defined. 

Table  1 indicates  that  none  of  the  currently  available  models  meet  all 
acceptability  criteria. 
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The  objectives  here  are  to  present  a model  which  describes  the 
flow  in  packed  beds  as  a series  of  alternating  annular  plugs,  the 
so-called  Alternating  Flow  Model  (AFM) , and  then  to  develop  the  cor- 
responding mathematical  modelo  Conceptually,  this  AFM  meets  all 
the  criteria  set  forth  in  Table  1.  Its  applicability  thus  depends  on 
adequate  representation  of  the  packing  interstices  as  a regular  pat- 
tern of  concentric  annular  voids.  The  second  chapter  justifies  the  AFM 
by  physical  and  other  reasoning  and  the  remaining  chapters  develop  the 
pertinent  equations  for  cases  of  varying  degrees  of  complexity.  As 
each  case  in  considered,  corresponding  model  parameters  will  be  evaluated. 

While  at  first  glance  the  number  of  parameters  may  seem  quite  large, 

\ 

the  AFM  utilizes  an  a priori  distribution  of  voids  based  on  the  relative 
size  of  tube  to  pellets  and  on  packing  geometry,  rather  than  on  back- 
fitting  those  parameters  to  experimental  data. 

First,  cases  of  mass  dispersion  only,  both  steady-state  and 
transient,  will  be  considered  fio  that  the  physical  dimensions  of  the 
individual  plugs  can  be  determined.  Next,  the  case  of  heat  dispersion 
only  will  be  used  to  extend  the  applicability  of  the  AFM  and  to 
identify  the  additional  parameters  which  may  be  needed  to  describe 
energy  dispersion.  And,  finally,  because  the  AFM  is  particularly 
applicable  to  vessels  with  small  tube-  to  pellet-diameter  ratios, 
equations  for  combined  heat  and  mass  dispersion  (i.e.,  reaction  within 
the  catalytic  packing)  will  be  presented,  since  highly  exothermic 
reactions  are  normally  carried  out  in  tubes  with  a small  number  of 
pellets  across  the  tube  diameter  to  facilitate  cooling. 
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Table  1 

Dispersion  Model  Acceptability  Criteria 


Fickian 

Mixing  Cell 

Crossflow 

AFM 

1-D 

2-D 

Finite  wavefront 

depends 

depends 

speed 

on  EC's 

No 

No 

on  EC' s 

Yes 

Conservation 

depends 

depends 

system 

on  EC's 

Yes 

Yes 

on  EC's 

Yes 

Radial  and  axial 

if  all 

spreading 

terms 

No 

Yes 

Yes 

Yes 

used 

No  back-mixing 

depends 

depends 

on  EC's 

on  EC's 

& terms 

Yes 

Yes 

& terms 

Yes 

Agreement  with 

if  fit 

for 

if  fit 

?? 

Yes 

data 

disp. 

avg. 

params 

coef f s. 

cone. 

?? 

Yes 

Easy  to  solve 

depends 

sec. 

simult . 

on  EC's 

ode's 

PDE's 

etc. 

Yes 

Yes 

Account  for 

adjust 

-empirical- 

uses 

a-priori 

packing 

coeff s 

cell 

size 

Fickian 

based  on 

coeff s 

Dt/ dp 

CHAPTER  II 
MASS  DISPERSION 

Concept  and  Rationale  for  Proposed  Model 
Traditionally,  two  experiments  have  been  used  to  characterize 
mass  dispersion  in  empty  tubes:  steady-state  injection  of  dye  at 

some  point  along  the  centerline  axis  (as  mentioned  earlier)  and 
time-dependent  variation  (e.g.,  step  change  or  sine  wave)  in  the 
cross-sectional  inlet  concentration.  The  steady-state  case  results 
in  a parabolic  shape  profile  emanating  from  the  point  of  injection 
in  the  direction  of  bulk  flow  whereas  the  transient  case  yields  the 
residence  time  distribution  (or  the  so-called  "F-curve,"  if  the 
input  is  a step-change)  which  uses  the  bulk  average  outlet  con- 
centration as  an  indication  of  deviation  from  plug-flow.  General 
practice,  as  established  by  Aris  (1956,  1958,  1959)  and  Taylor 
(1953,  1954a,  1954b) , is  then  to  describe  this  dispersion  behavior 
by  a Pick's  Law  analog  (equation  (1)).  These  axial  and  radial  dis- 
persion coefficients.  Da  and  Dr,  (in  the  form  of  a dimensionless 
Peclet  Number)  are  correlated  for  each  of  the  three  flow  regimes 
(laminar,  turbulent,  transition)  (Hoffmann,  1961)  in  terms  of 
Reynolds  and  Schmide  Numbers.  It  is  generally  accepted  that  use 
of  the  dispersion  parameters  obtained  from  these  correlations  to- 
gether with  the  numerical  or  analytical  solution  of  equation  (1) 
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and  its  corresponding  boundary  conditions  accurately  predicts 
observed  concentration  profiles  and  residence  time  distributions  in 
empty  tubes. 

If  these  same  two  experiments  are  carried  out  in  a packed  bed, 
similar  (but  not  exactly  equivalent)  dispersion  characteristics 
are  observed  (Danckwerts,  1953;  Hiby,  1963).  Thus,  usual  practice 
is  to  again  employ  Pick's  Law,  together  with  numerical  or  readily 
available  analytical  solutions  of  equation  (1)  (Carberry,  1976; 
Froment  and  Bischoff,  1979;  Wen  and  Fan,  1975),  but  to  use  effective 
parameters  to  account  for  the  fact  that  the  tube  is  partially 
occupied'  by  packing.  Again,  the  effective  Peclet  Numbers  (both 
radial  and  axial)  are  correlated  in  terms  of  Reynolds  and  Schmide 
Numbers  (Wen  and  Fan,  1975;  see  also  list  of  pertinent  references 
in  Appendix  A) . Unlike  empty  tubes,  however,  these  parameters 
are  not  well-correlated;  there  is  much  spread  in  the  data.  The 
spread  exists  within  the  data  of  single  researchers  as  well  as  be- 
tween average  values  reported  by  different  researchers.  One  might 
attribute  this  spread  in  Peclet  numbers  to  several  factors: 

1.  misrepresentation  of  the  Reynolds  Number, 

2.  variations  in  void  fraction, 

3.  erroneous  application  of  the  Fickian  analogy. 

First,  consider  calculation  of  the  Reynolds  number  for  a packed 
bed.  While  in  empty  tubes  it  is  the  diameter  that  affects  transition 
from  laminar  to  turbulent  flow,  there  is  some  doubt  as  to  what  length 
actually  characterizes  this  behavior  in  packed  beds,  which  have. 
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essentially,  two  competing  lengths:  tube  diameter  and  pellet  dia- 

meter. Usual  practice  is  to  employ  the  pellet  diameter  since  flow 
around  single  spheres  is  well-documented  (Bird  et  al.,  1960). 
However,  it  has  been  suggested  that  it  is  not  the  pellet  diameter, 
per  se,  which  induces  turbulence  but  rather  the  size  of  the  voids, 
i.e.,  interstitial  hydraulic  radius,  through  which  the  fluid  moves 
that  dominates  flow  patterns,  and  that  this  hydraulic  radius  should 
determine  a more  correct  Reynolds  number  (Cairns  and  Prausnitz, 
i960;  Bird  et  al.,  1960;  Schertz  and  Bischoff,  1969;  Ergun,  1952; 
Ergun  and  Orning,  1949;  Lapin,  1962;  Leva,  1947a,  1947b;  Leva  and 
Grummer,  1947a;  Martin  et  al.,  1951).  The  hydraulic  radius 
for  beds  with  spherical  pellets  can  be  calculated  from  the  bed 
voidage  in  two  ways; 

1.  P>.h'  = Dt_e (Cairns  and  Prausnitz,  1960); 

1.5  ^ (1-E)  + 2 

dp 


2.  Rh  = ^ ■ (Bird  et  al. , 1960) 

6(l-e) 

In  either  case,  however,  re-plotting  the  Peclet  number  in  terms  of 
this  corrected  Reynolds  number,  i.e.,  with  Rh  as  the  characteristic 
length,  does  not  significantly  reduce  the  spread.  Figure  8 of  Cairns 
and  Prausnitz  (1960)  illustrates  this  point  for  the  case  of  Rh' . 

For  the  case  of  Rh  consider  the  relationship  between  the  pellet- 
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and  hydraulic-Reynolds  numbers:  = Rep£/6(l-e)  . Since  the  usual 

practice  is  to  plot  Peclet  number  versus  Reynolds  number  on  logarith- 
mic axes,  all  data  would  translate  horizontally  by  the  same  amount 
since  log(Rej^)  = logCRe^)  + log(e/6(l-e) ).  Given  that  e falls  within 
a narrow  range,  the  second  term  is  essentially  constant. 

Second,  although  packed  beds  are  inherently  non-homogeneous 
merely  by  the  presence  of  packing,  the  void  fraction  within  a bed 
is  not  constant  throughout  but  depends  on  radial  position  (see  Appen- 
dix C for  list  of  appropriate  references) . Thus,  although  the  dis- 
persion parameters,  i.e.,  Peclet  numbers,  are  effectively  adjusted  to 
account  for  that  portion  of  the  bed  unavailable  for  flow  (and  mixing) , 
use  of  the  average  bed  void  fraction  to  do  so  can  induce  errors, 
since  the  void  fraction,  in  general,  determines  the  average  velocity 
of  equation  (1).  If  velocity  varies  as  a function  of  radial  position, 
then  it  follows  that  the  dispersion  characteristics  should  also 
vary  radially.  Cohen  and  Metzner  (1981)  summarize  the  radial  fluc- 
tuations in  void  fraction  in  terms  of  a tri-regional  (wall,  tran- 
sition, bulk)  equation.  Their  correlation  documents  maximum  voidage 
near  the  tube  wall  with  sinusoidal  variations  about  the  average 
bed  voidage  whose  amplitude  decays  exponentially  as  one  moves  from 
the  wall  to  the  centerline.  While  voidage  variations  are  thus  well- 
established,  the  corresponding  velocity  variations  are  not.  In  fact, 
while  one  would  expect  minimum  velocity  to  correspond  to  maximum 
cross-sectional  area,  the  converse  has  been  consistently  observed 
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(Carbonell,  1980;  Gunn,  1969;  Karabelas,  et  al.,  1973;  Mickley  et  al,, 
1965;  Schertz  and  Bischoff,  1969;  Schwartz  and  Smith,  1953;  Standish, 
1984;  Vortmeyer,  1983;  Vortmeyer  and  Schuster,  1984).  This  maximum 
velocity/maximum  voidage  effect  can  be  attributed  to  channelling — that 
more  fluid  will  take  the  path  of  least  hydraulic  resistance,  i.e.  max- 
imum cross-sectional  area.  In  addition,  other  researchers  (Fahien  and 
Smith,  1955;  Edisath  et  al.,  1983;  Dorweiler  and  Fahien,  1959; 

Oliveros  and  Smith,  1982)  have  shown  that  allowing  the  individual 
dispersion  coefficients  to  be  functions  of  radial  position  improves 
the  accuracy  of  the  Fickian  description  (equation  (1))  of  packed  beds; 
Fahien  and  Smith  (1955)  showed  that  the  dispersion  coefficient  also 
varies  axially. 

Third,  consider  the  possibility  that  it  may  be  the  model  itself, 
rather  than  the  corresponding  parameters,  that  is  in  error.  Why  does 
the  Fickian  analogy  work  so  well  for  empty  tubes  but  present  difficul- 
ties when  applied  to  packed  beds?  Some  researchers  have  attributed 
this  to  the  dubious  applicability  of  the  usual  boundary  conditions  to 
packed  beds  (Burghardt  and  Zaleski,  1968;  Chen  et  al.,  1983;  Choi  and 
Perlmutter,  1976;  Deckwer  and  Mahlmann,  1976;  Rasmuson  and  Neretnieks, 
1980;  Rasrauson,  1981;  Ray  et  al.,  1972;  Standart,  1968;  Wehner  and 
Wilhelm,  1956),  but  the  key  here  is  to  examine  the  underlying  assump- 
tion of  randomness  implied  by  the  application  of  Fick's  Law.  It  has 
been  shown  (Baron,  1952;  Jacques  and  Vermeulen,  1957)  that  if  a parti- 
cle exhibits  random  motion,  with  no  preference  for  direction  of 
travel,  as  it  traverses  the  length  of  the  vessel,  then 
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statistical  analysis  will  lead  to  equation  (l).  The  question  then 
arises  as  to  whether  the  presence  of  packing  within  the  tube  would 
impose  some  order  to  the  flow. 

Gunn  and  Pryce  (1969)  carried  out  several  experiments  in  packed 
beds  of  two  types:  one  with  the  packing  intentionally  arranged  in  a 

regular  pattern  and  another  with  random  (dumped)  packing.  Their  goal 
was  to  compare  the  applicability  of  the  Fickian  analogy  to  the  tanks- 
in-series  model.  The  initial  hypothesis  was  that  the  tanks-in-series 
model  should  more  closely  fit  the  ordered  packing  arrangement  since 
regular  pockets  would  be  available  for  the  formation  of  perfect 
mixers,  whereas  the  Fickian  analogy  should  better  describe  the  random 
packing  arrangement.  They  reasoned  that  if  the  parameters  associated 
with  each  of  these  models  could  be  fit  within  reasonable  statistical 
significance,  the  model  itself  would  be  applicable  to  that  particular 
situation.  Their  data  analysis  showed  that,  within  the  desired  accu- 
racy, the  tanks-in-series  model  parameters  could  not  be  fit  to  either 
the  random  or  regular  packing  cases,  that  the  Fickian  dispersion 
parameters  could  not  be  fit  to  the  regular  array  case,  and  that  the 
Fickian  parameters  did  fit  the  random  packing  case.  This  lends  sup- 
port to  the  idea  that  equation  (1)  may  not  adequately  describe  condi- 
tions of  non-random  motion. 

In  addition,  other  researchers  (Hiby,  1963;  Bischoff  and 
McCracken,  1966;  Kubo  et  al.,  1979)  experimented  with  time-lapse  pho- 
tography to  observe  the  flow  patterns  around  pellets  in  packed  beds. 
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Patterns,  such  as  those  shown  schematically  in  Figure  1,  were  con- 
sistently observed.  The  experiment  illustrated  in  Figure  1 is  for 
flow  around  cylinders  between  two  flat  plates.  This  streamline- 
split/merge  pattern  did  not  break  down  even  as  the  velocity  was 
increased  by  two  orders  of  magnitude  (Hiby,  1963) . This  lends  sup- 
port to  the  idea  that  the  packing  arrangement  dominates  the  actual 
fluid  velocity  in  determining  mixing  characteristics  within  packed 
beds. 

How,  then, is  it  possible  to  use  this  information  to  aid  the 
description  of  dispersion  in  packed  beds?  If  one  draws  a vertical 
axis  through  the  middle  of  the  flat  plates  illustrated  by  Figure  1 
and  then  rotates  these  plates  about  that  axis,  the  void  and  occupied 
channels  become  void  and  occupied  annuli  as  shown  in  Figure  2. 

As  the  fluid  flows  through  this  sequence  of  void-full  annular  cells 
it  alternately  splits  and  merges;  hence,  the  name  Alternating  Flow 
Model  (AFM) . The  basic  premise  of  this  work,  then,  is  that  this  AFM 
approximation,  developed  solely  from  observations  of  packed  bed  flow 
behavior,  accurately  describes  not  only  the  flow,  but  also  the  dis- 
persion behavior  in  packed  beds.  Further,  the  resulting  equations 
can  be  solved  in  a straightforward  manner  and  the  corresponding  phy- 
sical parameters  can  be  determined  a priori,  as  opposed  to  being 
back-fit  to  laboratory  data. 

General  Description  of  Alternating  Flow  Model 

The  Alternating  Flow  Model  presumes  that  flow  through  a packed 
bed  can  be  described  by  an  axially  repeating  series  of  cells  as  shown 
in  Figure  2,  and  that  the  fluid  moving  through  each  void  space 
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Figure  1:  Schematic  Representation  of  Flow  Patterns 

in  Packed  Beds 


14 


Figure  2:  One  AFM  Repeating  A/ii  cell, 
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exhibits  plug  flow  behavior.  Thus,  dispersion  is  achieved  by  repeated 
splitting  and  merging  of  these  fluid  plugs  as  the  bulk  fluid  traverses 
the  length  of  the  bed. 

Note  that  the  underlying  assumption  here  is  that  the  packing 
exerts  a great  influence  on  the  flow  pattern,  i.e.,  the  packing  im- 
poses order  on  the  flow.  Hence,  the  randomness  assumption  inherent 
in  the  Fickian  analogy  no  longer  holds.  One  might  argue  that  if  the 
tube  to  pellet  diameter  ratio,  Dt/dp,  is  large  enough,  the  choice 
of  pathways  available  to  a particle  as  it  traverses  the  bed  will 
be  sufficiently  large  to  validate  the  randomness  assumption.  One 
might  intuitively  justify  this  argument  by  pointing  out  the  large 
number  of  possible  arrangements  the  pellets  can  assume  as  they  are 
packed  in  the  tube.  Consider,  however,  what  happens  as  Dt/dp  de- 
creases; the  number  of  possible  arrangements  also  decreases.  For 
example,  if  Dt/dp=3,  the  only  possible  arrangement  for  spheres 
within  a cylinder  (or  for  discs  within  a larger  circle)  is  one 
sphere  at  the  center  with  six  spheres  tangent  to  the  tube  wall. 

Thus,  one  can  also  intuitively  argue  that  randomness  decreases  as 
order  is  imposed  on  the  packing.  Recall  the  experiments  of  Gunn 
and  Pryce  (1969) ; with  the  Fickian  model,  which  implies  randomness, 
they  were  unable  to  reproduce  observed  dispersion  behavior  in  inten- 
tionally ordered  packed  beds.  (In  practice,  such  ordered  cases 
arise  in  applications  involving  highly  exothermic  catalytic  reactions. 
Usual  practice  is  to  pack  only  a few  pellets  across  the  tube  diameter 
so  that  effective  cooling  can  be  achieved  and  hot  spots,  particularly 
at  the  tube  axis,  can  be  avoided.) 
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Model  Development 

If  a cylindrical  tube  is  packed  with  inert  uniformly  sized 
spheres,  the  simplest  mass  dispersion  cases  are  the  steady-state 
injection  of  dye,  or  tracer,  on  the  tube  axis  and  a transient 
step-change  in  concentration  across  the  entire  inlet  cross-section. 
For  these  cases,  two  AFM  parameters  define  the  dispersion  behavior: 
the  niunber  (size)  and  distribution  of  radial  plugs  within  each  A 
or  B half -cell  and  the  length  of  each  repeating  A/B  cell  (see  Figure 
2).  The  distribution  of  the  flow  among  the  individual  radial  plugs, 
or  the  split-merge  behavior,  follows  from  these  dimensions  via  a 
hydraulic  resistance  argument. 

Consider  as  an  example  a tube  divided  into  six  concentric 
annuli  as  shown  in  Figure  2.  Since  the  flow  into  a channel  or  ar- 
bitrary cross-section  is  described  by 

AP  = f(^)  U“/2g^  (2) 


and 


constant/Re 

f= 

constant 


laminar 


turbulent 


(3) 


the  total  flow,  Qt,  entering  a pipe  of  pattern  A (Figure  2)  will 
be  distributed  to  each  plug  as 

Q7Qt  = (1/H^)E(1/HJ  i=2,4,6 


(4) 


17 


In  the  above  relationship,  the  individual  hydraulic  resistances  Hi, 
depend  on  annulus  dimensions  and  on  flow  regime  (Appendix  B)  as 

A 2 

A.Rh.  laminar 

1 1 

1/Hi=  (5) 

A^(Rhj^)*^’^  turbulent 

Here,  whether  the  flow  be  regarded  as  laminar  or  turbulent  is  based 
on  the  particle  Reynolds  number,  Re^  (pellet  diameter  as  charac- 
teristic length)  for  flow  around  individual  spheres;  Rep>150  implies 
turbulence,  and  Rep<150  implies  laminar  flow.  As  the  fluid  flows 
from  the  A-half-cell  to  the  B-half-cell,  the  plug  2 flow  splits  in 
proportion  to  the  hydraulic  resistances  presented  by  plugs  1 and  3, 
the  plug  4 flow  splits  in  proportion  to  the  plug  3 and  5 resistances, 
and  the  plug  6 flow  must  all  enter  plug  5 (Figure  2),  i.e., 

Q^/Qt=(l-W3)Q2/Qt 

Q3/Qt=W3Q2/Qt  + (1-W5)Q^/Qt  (6) 

Q5/Qt=W3Q^/Qt  + Q^/Q^ 

The  individual  weighing  factors  are  determined  by  the  resistances 
of  those  B plugs  into  which  each  A plug  must  split.  Consider, 
for  example,  A-plug  4 as  it  splits  via  two  competing  resistances 
into  B-plugs  3 and  5 (just  as  there  were  three  competing  resistances 
for  the  total  flow  entering  pattern  A) . Thus 
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l/H^  + l/H^ 


= W 


5 


and 


(7) 


I/H3 


1-W 


5 


Hence,  the  weighing  factors  of  equation  (6)  are  given  by 


^i  1/H.  + 1/H 


1/H, 


(8) 


i ' i-2 


where  the  subscripts  are  as  illustrated  in  Figure  2 and  the  hydrau- 
lic resistances  are  as  defined  in  equation  (5),  above.  As  the 
fluid  moves  from  the  B-half-cell  into  the  next  A-half-cell,  the  plugs 
recombine  in  such  a way  as  to  regain  the  original  A distribution. 

This  implies  that  the  concentration  entering  each  plug  is  a weighed 
average  of  the  outlets  of  preceding  plugs: 

A to  B transition 


C3-  /Qj 

”5‘’4‘=4  + <=6'^6  /'is 


B to  A transition 


(9) 


04=  (l-W5)C^  + W3C3 
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(Note:  the  question  may  arise  as  to  why  the  AFM  employs  the  A-first 

pattern  as  opposed  to  the  B-first  pattern.  Since  the  profiles 
predicted  by  the  AFM  are  insensitive  to  the  A/B  order  (Figure  3, 
Table  2)  the  A-first  pattern  was  selected.) 

Table  2 

Centerline  Concentrations  for  two  AFM  Patterns 


Dt/dp 

z/dp 

C/Ca  at 
A-B 

r=0 

B-A 

25.6 

52 

8.6 

8.2 

13.3 

27 

4.2 

4.1 

11.1 

23 

4.0 

3.7 

6.9 

14 

2.2 

2.4 

19.2 

52 

4.8 

5.0 

8.3 

23 

2.0 

2.3 

12.8 

52 

2.1 

2.1 

5.3 

23 

1.3 

1.3 

These 

geometries 

correspond 

[ to 

taken  by  Fahien  and  Smith  (1955) . 
Model  is  compared  to  data  in  a later 
section. 


For  the  simple  mass  dispersion  only  cases,  the  plug  flow 
equation  for  each  radial  plug  becomes 

u dC/dz  + dC/dt  = 0 (10) 

where  determination  of  the  individual  linear  velocities,  u, 
are  discussed  below.  The  solution  of  equation  (10)  indicates  that 
the  concentration  at  the  outlet  of  each  radial  plug  is  simply  its 
input  signal  delayed  by  a dead  time  equal  to  the  half-cell  length 
divided  by  u.  Since  the  fluid  must  traverse  a series  of  delays  be- 
fore exiting  the  bed,  a finite  time  will  pass  before  any  inlet 
changes  will  propagate  to  the  outlet. 
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Figure  3:  A-first  and  B-first  AFM  Concentration  Profiles 
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In  the  steady-state,  enough  time  has  passed  so  the  outlet  and 
inlet  concentrations  are  equal  and  the  concentration  profile  at  the 
n-th  axial  segment  can  be  determined  from  the  inlet  profile: 


where 

= [C^  C,  ...  c , ] 

— n 2,n  4,n  Nrad,n 

T 

^ " ^^l,n  S,n  •••  Srad-l,n^ 
— in~  ^*^2, in  *^4,in  "**  Sjrad.iJ 


(11 -a) 


(11-b) 


and  R and  S are  each  (Nrad/2)  by  (Nrad/2)  di-diagonal  matrices  with 
all  elements  zero  except  that 


[l-W^  i=l,2,3,  .... (Nrad/2) 

si,i=  \ i 

[O  i=Nrad/2 


si , i+l= 


u 


i=l,2,3,  ..., (Nrad/2) 
i=Nrad/2 


(11-c) 


r 


^2i-2^2i-2 


^2i-] 


i=l 

i=2,3,4, 


(Nrad/2) 


i=l 


i,i+l  ■ 


(l-W2^)Q2i 


^2i-l 


i=2,3,4,  ...,  (Nrad/2) 
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Here,  Nrad  signifies  the  total  number  of  void  radial  plugs  in  an 
A/B  cell.  Note  that  a point  source  of  dye  is  simulated  by  setting 


in  any  given  radial  plug  is  solely  a function  of  upstream  conditions, 
no  backmixing  is  predicted. 

In  the  transient  case,  the  dead  times  are  most  easily  viewed  in 
the  Laplace  domain.  A uniform  step-change  in  inlet  concentration 
is  simulated  by  setting  all  elements  of  an  (Nrad/2) -long  column 
vector  equal  to  (Cin/s) . The  concentration  profile  at  the  nth 
axial  segment  and  at  any  given  time  can  be  represented  in  a form 
analogous  to  equation  (11) , above,  with  additional  inclusion  of  dia- 
gonal delay  matrices: 


C 


2,  in 


= Cin  and  C,  ,._  = C,  .„  = ...  =C,, , Since  the  concentration 

4,  in  D,in  Nrad,  in 


^ut,n  lA=in,n 


(12 -a) 


where  9.,  and  9_  are  diagonal  matrices  with  elements 


• • • > 


Nrad/2 


(12-b) 


(0  ) = exp(-sd.)  i=l,2,3 


Nrad/2 


(B  ) 


~out  n 


so  that 
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Note  that  equation  (12)  implies  a radial  distribution  of  the  total 
time  delay  required  for  an  inlet  change  to  be  seen  at  the  outlet, 

i.e.,a  residence  time  distribution.  The  matrix  formulation  of 
equation  (12)  is  for  convenience.  The  actual  mechanics  of  real-time 
simulation  are  described  in  Appendix  E. 

Now  that  the  appropriate  describing  equations  have  been 
established,  the  corresponding  radial  plug  size  distribution  axial 
cell  length  and  individual  linear  velocities  must  be  determined. 

Alternating  Flow  Model  Parameters 

As  mentioned  earlier,  radial  variations  in  bed  voidage, 
as  porosity,  are  well -documented  experimentally  (see  Appendix  C) 
and  have  been  correlated  via  a tri-regional  model  (Cohen  and  Metzner, 
1981)  which  is  shown  below  for  convenience: 

1.  wall  region  (x<0.25) — 

1-e  = 4.5(l-e^) (x-7x2/9) 

2.  transition  region  (0.25<x<8) — 

= a e cos(a_x-a, ) TT  (13) 

1-c,  1 3 4 

D 

3.  bulk  region  (x>8) — 

where  x is  the  distance,  in  pellet  diameters,  from  the  tube  wall; 
the  constants  are  a^=0.3463,  a2=0.4273,  a2=2.4509,  a^=2.2011.  It 
should  be  noted  that  these  radial  porosities  are  averaged  over  the 
entire  bed  length. 
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Although  the  literature  only  hints  at  axial  voidage  variations 
(Bennett,  1972;  Schwartz  and  Smith,  1953),  they  do  exist.  Consider 
again  the  case  of  dropping  spheres  into  a vertical  cylinder  whose 
diameter  is  three  times  that  of  an  individual  sphere.  The  densest 
packing  is  to  have  repeating  layers  of  seven  spheres  (one  in  the 
center  and  six  tangent  to  the  wall) , with  the  outside  ring  of 
spheres  rotated  thirty  degrees  from  the  layer  below  and  the  center 
spheres  stacked  one  on  top  of  the  other.  The  area  void  fraction 
will  be  maximum,  i.e.,  completely  empty,  at  the  tube  bottom  and  will 
decrease  to  a minimum  at  one-half  pellet  diameter  up.  The  void 
fraction  will  again  increase  (to  a different  maximum)  as  one  moves 
halfway  to  the  center  plane  of  the  next  layer  and  then  decrease  (to 
a different  minimum)  at  the  center  plane,  and  so  on.  One  can  also 
extend  this  idea  of  repeating  axial  layers  to  more  complex  packing 
arrangements,  i.e.,  larger  Dt/dp.  Figure  5 shows  numerically  de- 
termined axial  void  variations  for  Dt/dp=3  whereas  Figure  4 shows 
experimentally  measured  voidages  Dt/dp=6.6.  The  numerical  and 
experimental  techniques  are  described  in  Appendix  D. 

The  peak-to-peak  distance  in  the  void  fraction  curves  indicates 
the  number  of  void-full  regions  expected  both  radially  and  axially. 

Radially,  this  distance  can  be  found  by  determining  the  points 
at  which  (equation  (13))  and  are 

cos(a2X-a_^)  tt=0 
or 

a^x-a^=  ...  -3/2,  -1/2,  1/2,  3/2,  ...,  (14) 
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Figure  4:  Axial  Voldage  Variations,  Dt/dp=5.04,  Measured  Experimentally 
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Figure  5:  Axial  Voidage  Variation,  Dt/dp=3.0, 

Determined  Numerically 
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The  radial  thickness  of  each  void-full  region  would  then  be  the  dis- 
tance between  the  i-th  and  (i+2)th  zeros,  since  each  zero  indicates 
a transition  from  maximum  to  minimum  voidage.  Note  from  Table  3 
the  distance  between  successive  zeros  is  0.408  dp,  yielding  a 
radial  void-full  thickness  of  0.816dp.  (It  may  be  of  interest  to 
also  note  that  the  center-to-center  distance  between  spheres  arranged 
in  a hexagonal  close  packed  (HOP)  pattern  is  0,816dp).  Thus, 
Nrad=(Dt/dp) /0. 816,  to  the  next  highest  even  integer,  and  the  radius 
is  divided  into  (Nrad/2)  equal  Increments  which  are  then  subdivided 
to  satisfy  the  radial  distribution  of  void  fraction.  That  is,  the 
voidage  of  any  given  A-  or  B-plug  must  equal  the  radially  averaged 
voidage  given  by  equation  (13)  for  that  same  interval: 


2 


r e(r)dr=r?.-  r^ 
‘11  lo 


(15) 


where  the  small  r's  denote  the  scaled  radial  position,  R/Rtube.  The 

radii  r^^  and  r^^^  are  determined  by  the  half -cell  as  shown  in  Figure 

6.  (Note  that  for  the  A-half-cell  r^^  is  unknown,  hwereas  for  the  B- 

half-cell  is  unknown) . The  corresponding  overall  bed  voidage 

^bed  found  by  integrating  the  left  hand  side  of  equation  (15) 

from  r=0  to  r=l  and  is  not  necessarily  equal  to  e,  of  equation  (13) . 

b 

Thus,  e,  must  be  selected  to  give  e,  , within  a few  percent  of  the 
D bed 

observed  value.  If  the  overall  bed  voidage  is  unknown,  the  compre- 
hensive data  of  Leva  and  Gruinmer  (1947b)  for  bed  voidage  as  a function 
of  Dt/dp  can  be  used. 
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A-half-cell  B-half-cell 


2 2 

re(r)  dr  = r,  . - r, 
hi  lo 

i 


Figure  6:  Intermediate  Radius  Integration  Limits 
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Table  3 

Half -cycle  Crossings  of  Radial  Void  Function 


H.S.  of 
lation  (14) 

x-value 

-1.5 

0.286 

-0.5 

0.694 

0.5 

1.102 

1.5 

1.510 

2.5 

1.918 

3.5 

2.326 

4.5 

2.734 
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Axially,  the  peak-to-peak  distance  can  be  found  in  an  analo- 
gous manner.  Figures  5 and  4 show  the  cycle  width,  which  represents 
the  length  of  one  half -cell,  to  be  approximately  0.82dp,  independent 
of  Dt/dp.  Recall  that  the  center-to-center  distance  for  HCP  spheres 
is  0.816dp;  it  is  therefore  assumed  that  this  is  the  axial  voidage 
cycle  width.  Thus,  the  total  (A/B)  cell  length  is  twice  that  amount 
giving  Nz=Ztot/l. 632dp  as  the  number  of  repeating  (A/B)  cells. 

The  individual  linear  velocities,  u (equation  (10)),  are  calcu- 
lated as  volumetric  flow  rate  (equations  (4)  and  (6))  divided  by 
cross-sectional  area  of  flow,  u.=Q./A.,as  was  implied  by  employing 
equation  (2)  to  distribute  the  flows.  The  individual  cross-sectional 
areas,  A^,  are  determined  from  the  radii  defined  by  equation  (15). 
These  velocities  are  scaled  by  dividing  the  average  interstitial 
bed  velocity,  u =Qt/e^^^Atube,  or 


u . /u' 
1 


A . /Atube 
1 


The  delay  times  in  each  annulus  are  given  by  the  plug  (or  half-cell) 
length  divided  by  the  corresponding  velocity  and  are  scaled  by 
dividing  by  the  average  bed  hold-up  time,  x = Ztot/u  , to  give 


A^y Atube 


(17) 


since  there  are  (2  Nz)  half-cells  (plug  lengths)  across  the  overall 
bed  length,  Ztot. 
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Figures  1-11  compare  observed  radial  profiles  of  u.^/u'  to 
those  predicted  by  equation  (16).  In  all  cases,  the  AFM  predictions 
follow  the  data  well.  In  these  figures,  the  AFM  profiles  are  repre- 
sented by  horizontal  bars  corresponding  to  the  A-  or  B-plugs  (B  with 
hash-marks,  A without);  the  non-vertical  dashed  segments  connect 
across  those  regions  the  AFM  considers  occupied  by  solid  regardless 
of  half-cell  (refer  to  Figure  2).  The  experimental  data  are 
represented  in  Figures  8 - 12  by  horizontal  bars  covering  the  regions 
in  which  the  respective  researchers  assumed  the  velocities  to  be 
constant.  In  these  cases,  velocities  were  measured  at  five  radial 
positions  each  with  10%  of  the  total  tube  cross-sectional  area  on 
either  side  so  that  the  radially  integrated  (average)  velocity,  u’ , 
would  equal  the  arithmetic  average.  In  Figure  7,  the  data  are 
represented  by  single  points  since  so  many  measurements  were  made. 

In  this  case,  the  radially  averaged  velocity,  u' , was  determined 
by  numerical  integration  from  which  the  scaled  values  were 
calculated. 

Because  insertion  of  velocity  probes  into  the  packing  would 
disrupt  both  the  flow  profile  and  packing  arrangement,  velocity  data 
were  taken  in  the  empty  tube  some  distance  beyond  the  packed  section. 
As  this  distance  increases,  the  velocity  profile  tends  to  flatten 
out  (Figure  13)  and  eventually  approaches  the  roughly  parabolic 
shape  expected  in  an  empty  tube.  In  addition,  velocities  will 
decrease  when  the  fluid  expands  from  the  small  cross-section 


c |c 


32 


Figure  7:  Radial  Velocity  Profiles,  Dt/dp=9.4,  3"  Pipe, 

Data  (Marivoet  et  al. , 1974)  Taken  0.5cm 
beyond  Packed  Section 


C |P 
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Figure  8:  Radial  Velocity  Profiles,  Dt/dp=]3.2,  4"  Pipe, 

Data  (Schertz  and  Bischoff,  1969)  Taken  1 inch 
beyond  Packed  Section 


C Ic 
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Figure  9:  Radial  Velocity  Profiles,  Dt/dp=8,  4"  Pipe, 

Data  (Schwartz  and  Smith,  1953)  Taken  2 inches 
beyond  Packed  Section 


C |P 
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Figure  10:  Radial  Velocity  Profiles,  Dt/dp=6,  3"  Pipe, 

Data  (Schwartz  and  Smith,  1953)  Taken  2 inches 
beyond  Packed  Section 


P |c 
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Figure  11:  Radial  Velocity  Profiles,  Dt/dp=12.8,  2"  Pipe, 

Data  (Schwartz  and  Smith,  1953)  Taken  2 inches 
beyond  Packed  Section 
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Figure  12:  Radial  Velocity  Profiles,  Dt/dp=5.3,  2"  Pipe, 

Data  (Schwartz  and  Smith,  1953)  Taken  2 inches 
beyond  Packed  Section 


c |e 
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Figure  13:  Flattening  of  Radial  Velocity  Profile  as  Distance 

beyond  Packed  Section  Increases,  Dt/dp=8, 

Data  (Schwartz  and  Smith,  1953)  Taken  2 inches 
beyond  Packed  Section,  Regardless  of  Dt 
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of  the  packing  interstices  into  the  larger  cross-section  of  the  empty 
tube.  The  degree  of  expansion  probably  varies  radially  due  to  the 
radial  porosity  profile  with  the  smallest  effect  at  maximum  voidage 
near  the  wall.  But,  the  empty  tube  wall  drag  and  tendency  for  maxi- 
mum velocity  at  the  centerline  would  likely  combine  to  dampen  out 
any  peaks  near  the  wall  more  dramatically  than  at  other  radial  po- 
sitions. Vortmeyer  and  Winter  (1982)  solved  the  Navier-Stokes 
equations  for  an  empty  tube  with  a maximum-near-wall  velocity  pro- 
files at  its  inlet  and  showed  that  the  flow  pattern  quickly  redis- 
tributes. However,  the  empty  tube  measurements  should  at  least  in- 
dicate the  velocity  trends  within  the  packing. 

In  all  cases,  the  AFM  predictions  follow  the  observed  velocity 
trends.  Moreover,  the  AFM  predictions  more  closely  match  data  taken 
either  very  close  to  the  bed  exit  (Figure  7)  or  in  larger  tubes 
(Figure  8 and  9)  where  the  empty  tube  has  had  less  of  a chance  to 
influence  the  flow  patterns.  This  good  agreement  of  predicted  and 
measured  velocities  gives  credibility  to  using  equations  (16)  and 
(17)  to  determine  transient  characteristics  of  packed  beds. 

Examination  of  these  techniques  for  determining  AFM  parameters 
reveals  one  key  point:  only  geometric  factors  (Dt/dp,  z/dp, 

are  required  to  predict  mass  dispersion  in  packed  beds.  Thus  the 
Alternating  Flow  model  is  predictive;  its  parameters  are  determined 
a priori  with  no  need  for  back-fitting  them  to  dispersion  data.  In 
a later  section,  steady-state  data  will  be  used  to  check  the  sizing 
of  axial  cell  length,  the  distribution  of  radial  plugs,  and  the 
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distribution  of  flows.  Transient  data  will  be  used  to  check  the  ve- 
locity (delay  time)  distribution.  But  first,  some  limitations  of 
the  AFM  must  be  discussed. 

Model  Limitations 

Questions  regarding  how  the  Alternating  Flow  model  handles 
the  cases  of 

1.  zero  bulk  velocity  or  flow  rate, 

2.  extremely  wide  beds  (i.e.,  Dt/dp  large), 

3.  extremely  long  beds  (i.e.,  z/dp  large) 
may  arise.  Each  is  discussed  below. 

Zero  velocity  dispersion  behavior  should  reduce  to  a pure 
diffusion-like  mechanism.  Consider  the  simplest  steady-state  ex- 
periment of  injecting  dye  (tracer)  at  some  point  within  the  packed 
bed.  If  there  is  no  bulk  velocity,  then  the  dye  should  disperse 
equally  in  both  directions;  that  is,  there  must  be  back-mixing.  A 
model,  such  as  the  AFM,  which  alleviates  the  back-mixing  problem 
described  earlier,  cannot  describe  such  zero  velocity  behavior.  But, 
any  model,  such  as  the  Fickian  analogy,  which  can  describe  stagnant 
flow  fails  to  alleviate  the  back-mixing  problem. 

For  the  AFM,  extremely  wide  or  long  beds  result  in  large 
numbers  of  radial  plugs  or  axial  cells,  respectively.  As  these 
numbers  become  increasingly  large,  the  AFM  description  of  the  tran- 
sient (F-curve)  behavior  approaches  plug  flow  behavior  for  the  overall 
bed,  i.e.,  the  output  signal  becomes  the  input  signal  delayed  by  one 
bed  hold-up  time.  This  is  a result  of  flat  radial  delay-time  profiles 
(equation  (17)).  As  Dt/dp  increases,  the  "wall  region"  becomes  a 
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smaller  proportion  of  the  total  bed  cross-section  thus  creating  a 
more  uniform  porosity  profile,  which  in  turn  implies  more  uniform 
velocity  and  delay  time  profiles.  As  z/dp  increases,  Nz  follows  and  the 
denominator  of  equation  (17)  eventually  becomes  large  enough  to  pre- 
vent any  noticable  differences  between  individual  delay-times. 

Comparison  with  Experimental  Data 

Figures  14  - 17  give  steady-state  radial  concentration  profiles 
at  a set  of  positions  for  5. 6<Dt/dp<54,  100<Rep<500,  and  10  z/dp 
100.  Figure  18  shows  axial  profiles  at  two  set  radial  positions 
for  Dt/dp=12.8,  and  Figures  19  and  20  give  F-curves  for  Dt/dp=15.9 
and  8.0.  Both  gases  and  liquids  are  represented  (Table  4).  Experi- 
ment is  compared  to  prediction  via 

1.  Fickian  predictive:  dispersion  coefficients  obtained  via 

correlations  available  in  the  literature  (Wen  and  Fan,  1975; 

Levenspiel,  1962; 

a)  steady-state  via  equation  (15)  of  Gunn  and  Pryce 
(1969), 

b)  transient  via  equation  (19)  of  Danckwerts  (1953) , 

2.  Alternating  Flow  Model  predictions. 

These  figures  do  not  show  profiles  obtained  by  back-fitting  dis- 
persion coefficients  to  the  data  since,  at  any  given  axial  position, 
it  is  possible  to  obtain  a nearly  perfect  fit.  However,  as  indicated 
by  the  experiments  of  Fahien  and  Smith  (1955)  these  coefficients  may 
change  with  axial  position. 
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Table  4 

Data  Used  for  Mass  Dispersion  Comparison 


Source  Type^ 

Dt 

dp 

Tracer/ 

bulk 

Rep 

z/dp 

Fahien  and  SS 
Smith  (1955) 

2"-4" 

5/32" 

-0.36" 

CO^/air 

150 

-900 

10-70 

Gunn  and  SS 

Pryce  (1969) 

3.5" 

6mm 

Ar/air 

121 

23 

Latinen  SS 

(1951) 

2" 

.037" 

dye/water 

102 

180 

Cairns  and  trans 

Prausnitz 

(1960) 

2" 

3 . 2mm 

NaCH/water 

water 

128 

191 

Jacques  and  trans 
Vermeulen 

6" 

.75" 

NaCH/ 

water 

13  o’^ 

32 

(1957) 


^S=steady-state;  trans=transient , 

Data  read  directly  from  their  Figure  32,  which  was  assumed  to 
represent  Run  217-2  (2gpm)  and  not  Run  217-1  as  stated.  If 
this  assumption  is  not  made,  the  data  imply  that  the  F-curve 
reaches  50%  only  after  two  vessel  hold-up  times,  a situation 
that  seems  highly  unlikely. 
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(r/R  ^ ) 


Figure  14:  Steady-state  Radial  Concentration  Profiles,  Dt/dp=15, 

Z^^j./dp=23,  Data  of  Gunn  and  Pryce  (1969) 
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Figure  15:  Steady-state  Radial  Concentration  Profiles,  Dt/dp=54.3, 

Z^^^/dp=180,  Data  of  Latinen  (1954) 


o|n 
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Figure  16:  Steady-state  Radial  Concentration  Profiles,  Dt/dp=5.6, 

Z^^^/dp=23,  Data  of  Fahien  and  Smith  (1955) 


o|n 
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Figure  17:  Axial  Variation  of  Steady-state  Eladial  Concentration 

Profiles,  Dt/dp=12.8,  zld'p=n  and  52,  Data  of 
Fahien  and  Smith  (1955) 


n|n 
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Figure  18:  Steady-state  Axial  Concentration  Profiles,  Dt/dp=12.8, 

Data  of  Fahien  and  Smith  (1955) 
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Figure  19:  F-curves  for  Dt/dp=15.9,  Z /dp=191, 

Data  of  Cairns  and  Prausniiz^960) , 
L=Levenspiel  (1962),  WF=Wen  and  Fan  (1975) 
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Figure  20:  F-curves  for  Dt/dp=8.0,  Z /dp=32, 

Data  of  Jacques  and  VermeuJen  (1957), 
L=Levenspiel  (1962) , WF=Wen  and  Fan  (1975) 
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In  the  steady-state  Figures  (14  - 18) , the  vertical  axis  repre- 
sents point-value  concentrations  scaled  by  the  average  measured 
effluent  concentration,  Ca,  which  can  be  calculated  at  any  given 
axial  position  as  Ca  = (total  amount  of  tracer  material) /(total 
amount  of  fluid).  Solutions  of  the  Fickian  analogy  (equation  (1)) 
for  C/Ca  as  function  of  radial  and  axial  position  are  given  else- 
where (e.g.jRoemer  et  al.,  1962;  Gunn  and  Pryce,  1969;  Danckwerts, 
1953;  Cairns  and  Prausnitz,  1960;  Wen  and  Fan,  1975).  For  the  AFM 
the  scaled  concentrations  become 

C^/Ca=C^Q^/E(QjCj)  (18) 

with  j=2,4,  . , .,N  for  the  A-half-cell,  and  j=l,3,.  . . ,N-1  for  the 
B-half-cell.  The  subscript  "i"  implies  that  the  concentration  in 
that  given  annular  plug  is  constant.  To  alleviate  discrete  (step- 
wise) concentration  profiles.  Figures  14  - 18  show  the  values  calcu- 
lated from  equation  (18)  at  each  plug's  midpoint  radius. 

Figures  14  - 16  indicate  good  agreement  of  the  AFM  with  experi- 
ment over  a wide  range  of  Dt/dp.  However,  Figures  17  and  18  which 
show  axial  variations  for  Dt/dp=12.8  indicate  that,  at  low  z/dp, 
neither  the  AFM  nor  the  Fickian  analogy  closely  follows  the  observed 
dispersion  behavior.  However,  the  agreement  is  quite  good  at 
z/dp>25.6  or  two  tube  diameters.  This  behavior  is  also  borne  out 
in  Table  5 which  compares  AFM  and  Fickian  predictions  to  observed 
values  of  centerline  concentrations  for  5 . 6<Dt/dp<25 , 6 as  given  by 
Fahien  and  Smith  (1955) . Note  the  improvement  in  both  models  as 
z/Dt  increases.  This  can  probably  be  attributed  to  entrance  effects 
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since  the  tracer  injection  tube  creates  a disturbance  in  the  flow 
pattern  and  in  the  packing  pattern  which  may  each  take  some  distance 
to  settle  out.  For  example,  in  empty  tubes  the  flow  disturbance 
created  by  a barrier  requires  several  pipe  diameters  to  settle  out 
(Daugherty  and  Franzini,  1977)  as  compared  to  an  apparent  "settling 
length"  here  of  about  two  pipe  diameters.  This  shorter  distance 
should  be  expected  since  the  packing  tends  to  impose  order  on  the 
flow  pattern.  Consider  also  that  insertion  of  a tracer  injection 
tube  into  the  packing  will  disrupt  the  "normal"  packing  arrangement 
and  hence  the  distribution  of  voids.  Thus,  the  assumed  plug  and 
cell  distributions  may  not  be  applicable  in  the  vicinity  of  the 
injection  tube.  In  fact,  Marivoet  et  al.  (1974)  showed  that  in- 
sertion of  a narrow  tube  along  the  axis  of  a packed  bed  signifi- 
cantly altered  the  flow  pattern. 

Given  such  arguments,  one  would  expect  this  entrance  effect  to 
disappear  if  there  is  no  physical  barrier  inserted  into  the  packing. 
Since  the  simplest  heat-dispersion-only  experiments  meet  the  no- 
barrier criterion,  the  corresponding  AFM  results  should  provide  more 
insight  into  this  entrance  effect. 

In  all  steady-state  cases,  the  AFM  results  equal  or  surpass 
the  Fickian  predictions.  These  results  lend  support  to  the  pre- 
viously described  techniques  for  sizing  plugs  (equation  (15)), 
for  determining  cell  length  (HCP  spacing)  and  for  distributing  the 
flows  (equations  (6)  and  (7)). 
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Table  5 


Centerline 

Concentrations- 

— Data,  Fickian,  and 

AFM 

Centerline 

Concentration^ 

Dt/dp 

z/dp 

z/Dt 

Data 

AFM 

Fickian 

25.6 

52.0 

2.0 

4.8 

8.6 

8.7 

13.3 

27.1 

ft 

2.8 

4.2 

4.5 

11.1 

22.6 

It 

2.3 

4.0 

3.7 

6.9 

14.0 

If 

1.3 

2.2 

2.3 

19.2 

52.0 

3.0 

3.8 

4.8 

4.9 

8.3 

22.6 

II 

1.8 

2.0 

2.1 

12.8 

52.0 

4.0 

2.2 

2.1 

2.2 

5.6 

22.6 

II 

1.3 

1.3 

.95 

All  data  from  Fahien  and  Smith 

(1955). 
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Transient  (F-curve)  AFM  and  Fickian  predictions  using  disper- 
sion coefficients  from  two  different  sources  (Levenspiel,  1962,  p. 

282;  Wen  and  Fan,  1975,  p.  166)  are  compared  to  data  in  Figures  19 
and  20  (see  Table  4 for  system  description).  These  figures  indicate 
that  the  Alternating  Flow  model  again  surpasses  the  Fickian  analogy, 
even  in  the  case  of  the  longer  bed  (Figure  19,  z/dp=191) . In  this 
case,  the  AFM  might  be  expected  to  fail  because  of  its  tendency  to 
predict  plug  flow  behavior  for  the  overall  bed  for  large  z/dp  and 
Dt/dp  as  noted  in  the  "model  limitations"  discussion,  above. 

The  log  of  the  AFM  behind  the  data  may  be  due  to  using  an 
incorrect  in  determining  velocity  profiles.  The  value 

used  in  the  AFM  simulations  for  Figures  19  and  20  were  based  on  the 
^bed  Dt/dp  data  given  by  Leva  and  Grummer  (1947b)  since  neither 

researcher  gave  explicit  bed  porosity  values.  If  is  actually 

larger  than  the  selected  values,  then  the  scaled  velocities  would  be 
proportionately  faster  and  the  entire  AFM  F-curve  would  shift  left 
in  time.  The  shift  should  become  less  pronounced  as  the  number  of 
mixes  increases  since  increasing  the  exponent  (axial  cell  number,  n) 
or  dimension  (Dt/dp  or  Nrad)  of  equation  11  tends  to  dampen  any  dis- 
continuities in  the  velocity  profile.  Comparisons  of  Figures  19  and 
20  supports  this  reasoning  since  the  lag  appears  constant  for  the 
shorter,  narrower  bed  (Figure  20)  but  approaches  zero  for  the  longer, 
wider  bed  (Figure  19).  The  steady-state  results  are  more  tolerant 
was  estimated  (from  the  data  of  Leva  and  Grummer, 
1947)  for  some  of  the  cases  and  AFM  predictions  still  closely 
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followed  the  concentration  data.  This  can  be  attributed  to  the  fact 
that  the  number  and  thickness  (or  hydraulic  radius)  of  radial  plugs 
determine  steady-state  mixing  characteristics.  Recall  the  assumption 
that  the  radial  porosity  profile  will  oscillate  with  the  same  frequen- 
cy regardless  of  its  mean  value.  Thus,  the  effect  of  e,  on  Nrad 

D 

is  nil  and  on  the  radial  plug  thicknesses  is  minimal. 


CHAPTER  III 
HEAT  DISPERSION 

Consider  now  the  heating  of  a gas,  initially  at  uniform  tem- 
perature, Tin,  as  it  flows  through  a packed  bed  with  constant  wall 
temperature,  Twall  (Figure  21) . Heat  transfers  in  from  the  wall  so 
that  radial  temperature  gradients  will  be  the  sharpest  just  inside 
the  bed  and  will  flatten  with  increasing  axial  position.  If  the  bed 
is  long  enough,  the  fluid  will  eventually  reach  a uniform  temperature 
of  Twall . 

The  corresponding  Fickian  analogy  assumes  that  heat  flows  in 
at  the  wall  by  a film  resistance  and  then  disperses  radially  by  con- 
duction through  a pseudo-homogeneous  medium,  or  (in  the  steady-state) 


3z 


S^T 


A i 4-<r  #)  = 0 


1 

r 3r' 


3r' 


(19) 


where  X = effective  thermal  conductivity  of  the  packed  section 
("effective"  to  account  for  void  fraction) , G=p  G/Atube  is  the  mass 
flux,  p is  the  fluid  density,  and  Atube  and  G are  defined  earlier. 
The  well-known  solution  of  equation  (19)  with  appropriate  boundary 
conditions  and  the  usual  assumption  of  no  axial  dispersion  is  a 
Bessel  function  series  (e.g.,  Li  and  Finlayson,  1977)  . The  boundary 
conditions  give  rise  to  a wall  film  heat  transfer  coefficient,  hw. 
The  parameters,  hw  and  X,are  either  fit  to  experimental  data  or 
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Figure  21:  Simplest  Heat  Dispersion  Experiment 
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obtained  from  available  correlations  giving  these  coefficients  in 

dimensionless  form  in  terms  of  Re  (see  Appendix  G for  list  of  refe- 

P 

rences) . However,  experimental  values  of  hw  depend  on  axial  position 
and  corresponding  X depend  on  both  axial  and  radial  position 
(Bunnel  et  al.,  1949;  Calderbank  and  Pogorski,  1957;  Coberly  and 
Marshall,  1951;  deWasch  and  Froment,  1972;  Hall  and  Smith,  1949; 

Kunii  et  al.,  1968;  Kwong  and  Smith,  1957;  Lerou  and  Froment,  1977; 
Li  and  Finlayson,  1977;  Patterson  and  Carberry,  1983;  Plautz  and 
Johnstone,  1955)  so  that  average  or  asymptotic  values  must  be  used. 
The  literature  provides  many  forms  of  correlations  for  both  hw 
and  X (e.g. , Carberry,  1976;  Froment  and  Bischoff,  1979;  Li  and 
Finlayson,  1977;  Schlunder,  1978).  The  "data  effect"  may  cause  the 
"correlation  effect"  but  both  may  be  due  to  several  factors: 

1.  assumption  of  radially  uniform  velocity  in  equation  (19) 

2.  assumption  of  radially  uniform  X in  equation  (19) 

3.  misrepresentation  of  the  Re3molds  number  (correlation 
effect  only) 

4.  erroneous  application  of  the  Fickian  analogy. 

Schlunder  (1978)  points  out  that  using  a non-uniform  velocity  pro- 
file decreases  the  dependency  of  hw  on  tube  length. 

The  first  two  points  were  also  considered  by  Lerou  and  Froment 
(1977)  who  included  a prescribed  radial  profile  in  G ( i. e. , velocity) 
and  a given  functional  form  for  X versus  Re  (local)  in  fitting  point 
values  of  X(r)  and  overall  values  of  hw  to  their  experimental  data. 
They  reasoned  that  because  there  are  both  static  and  turbulent  con- 
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tributions  to  A it  must  vary  radially  for  two  reasons:  the  porosity 

profile  (static  contribution)  and  the  velocity  profile  (turbulent 
contribution) . To  support  this  reasoning  they  fit  the  parameters  to 
the  model  with  uniform  X to  the  model  with  point  values  of  l(r) . In 
both  models  they  obtained  better  fits  by  allowing  G to  vary  inversely 
with  porosity,  in  contrast  to  the  observed  velocity  profiles  which 
were  discussed  earlier.  Although  no  direct  comparison  was  made  be- 
tween data  and  temperature  profiles  predicted  by  the  uniform  and 
point-value  models,  it  was  implied  that  the  latter  gave  better  re- 
sults. However,  in  over  two  thirds  of  the  experiments  listed,  appli- 
cation of  the  point-value  X model  increased  the  uncertainty  in  the 
absolute  value  of  hw;  the  relative  uncertainty  increased  in  about 
half  of  the  cases. 

Hence,  allowing  X to  vary  radially  can  improve  temperature 
profile  predictions  but  may  decrease  the  confidence  with  which  hw 
can  be  regarded.  Note  also  that  it  was  necessary  to  employ  erroneous 
velocity  profiles  to  attain  these  results.  Thus  the  added  accuracy 
may  be  due  to  increasing  the  number  of  parameters  (allowing  X to 
vary  radially)  and  not  due  to  better  representation  of  the  Fickian 
parameter. 

Next,  consider  the  correlation  of  X and  hw  in  terms  of  Re  . 

P 

As  discussed  earlier,  the  particle  Reynolds  number  may  not  be  the 
best  descriptor  of  turbulence  in  packed  beds.  Some  attempt  has  been 
made  to  use  other  "hydraulic"  Reynolds  number  (Li  and  Finlayson, 

1977),  but  these  have  remained  relatively  unpopular. 
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And  next  consider  application  of  the  Fickian  model  to  disper- 
sion in  packed  beds.  If  the  model  is  truly  applicable,  then  the  ob- 
served spatial  variations  in  its  parameters  should  be  justified. 
Because  the  usual  practice  is  to  neglect  axial  heat  conduction  in 
the  Fickian  analogy  (equation  (19))  the  literature  provides  little 
information  for  non-stagnant  effective  axial  thermal  conductivities 
especially  in  cases  where  simultaneous  axial  and  radial  conduction  is 
considered  (Clement  and  Jorgensen,  1981;  Patterson  and  Carberry, 

1983;  Wakao,  1976;  Wakao  et  al.,  1979;  Yagi  et  al.,  1960).  But, 
under  the  assumption  of  pseudo-homogeneity  implied  by  equation  (19) 
a total  absence  of  axial  heat  "conduction"  seems  unlikely.  Thus, 
spatial  variations  in  radial  thermal  conductivity  may  be  needed  to 
compensate  for  otherwise  ignored  driving  forces  in  the  axial  di- 
rection. The  radial  variation  of  conductivity  can  also  be  justified 
on  porosity  variations  since  the  relative  ratio  of  solid  to  fluid  will 
change  accordingly.  But  what  about  the  axial  variation  in  hw?  In 
empty  tubes,  hw  will  vary  from  some  high  value  in  the  entrance  region 
(because  of  increased  turbulence  there)  and  will  eventually  settle 
out  to  some  constant  value  (e.g.  McCabe  and  Smith,  1976) . Thus, 
length-averaged  hw's  for  empty  tubes  depend  on  total  tube  length. 
Packed  beds,  however,  have  no  single  entrance  region  after  which 
the  turbulence  settles  out.  They  are,  in  fact,  a large  number  of 
entrance  regions  in  series  since  the  fluid  moves  through  repeating 
layers  of  pellets.  Because  each  entrance  region,  or  layer,  is  short 
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(less  than  one  pellet  diameter)  one  would  expect  hw  to  be  constant 
throughout  the  length  of  the  bed. 

Furthermore,  as  the  mass  dispersion  chapter  points  out,  the 
Fickian  analogy  implies  random  fluid  motion  whereas  flow  through 
packed  beds  is  orderly.  .Vlthough  heat  transfers  by  many 
mechanisms  (conduction,  turbulent  and  film  convection,  radiation) 
which  may  or  may  not  be  orderly,  recall  the  simplicity  of  the  heat 
dispersion  being  described.  Heat  transfers  in  from  the  wall  at  a 
temperature  low  enough  to  rule  out  radiation,  through  a film  to  a 
gas  of  low  thermal  conductivity.  The  gas  moves  around  packing  made 
from  a material  (e.g., glass  or  catalyst  support)  again  of  low  ther- 
mal conductivity.  Any  heat  transferred  to  the  packing  must  pass 
through  a film,  and  the  amount  of  heat  transferred  is  small.  Thus, 
the  overriding  mechanism  is  convection — through  films  and  by  bulk 
fluid  motion. 

The  acceptability  criteria  for  a packed  bed  heat  dispersion 
follow  those  presented  earlier  for  mass  dispersion.  Heat  must  be 
conserved  and  travel  at  a finite  speed,  heat  should  disperse  both 
radially  and  axially,  and  no  backmixing  should  be  predicted.  The 
model  should  also  properly  represent  the  flow  around  packing,  its 
solution  should  be  straightforward  and  its  corresponding  parameters 
should  be  well-defined.  The  finite  wavefront  speed  and  no  back-mix- 
ing criteria  are  based  on  physical  arguments:  the  inherent  non- 

homogeneity of  the  packed  bed  induces  a high  resistance  to  heat 
transfer  by  pure  conduction  (consider  the  small  contact  area  between 
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pellets) ; heat  must  therefore  travel  near  the  speed  of  fluid  flow 
and  should  not  move  backwards  against  the  direction  of  bulk  flow. 

As  indicated  in  Table  1 (mass  dispersion  chapter) , none  of  the 
currently  available  models  meets  all  criteria. 

The  Alternating  Flow  Model,  therefore,  combines  the  wall  and 
pellets  film  and  bulk  flow  mechanisms  with  the  previously 
established  flow  patterns  and  mixing  characteristics  to  describe 
heat  dispersion  in  packed  beds.  Although  the  mass  dispersion 
chapter  considered  spherical  pellets,  most  reaction  applications 
involve  packing  of  other  shapes.  This  chapter,  therefore,  addresses 
both  spherical  and  cylindrical  pellets.  The  AFM  heat  dispersion 
equations  are  developed  and  additional  parameters  arise,  some  re- 
lated to  packing  characteristics  and  some  related  to  film  heat  trans- 
fer. Those  parameters  related  to  packing  characteristics  are  deter- 
mined a priori,  whereas  the  film  coefficients  must  be  based  on  heat 
transfer  fundamentals.  Model  results  are  compared  to  experiment  for 
both  spherical  and  cylindrical  pellets. 

Model  Development 

The  Alternating  Flow  Model  (AFM)  assumes  that  heat  disperses 
axially  and  radially  by  the  repeated  splitting  and  merging  of  streams, 
in  a manner  analogous  to  the  simplest  cases  of  mass  dispersion . 
However,  in  the  case  of  heat  dispersion,  the  packing  and  wall  can  no 
longer  be  considered  inert  since  heat  transfers  in  from  the  wall  and 
disperses  radially  from  the  bulk  fluid  to  the  packing.  In  the  con- 
text of  the  AFM,  then,  equations  describing  the  solid  plugs  must 


62 


also  be  considered.  Note  from  Figure  2 that  since  the  radial  void- 
full  pattern  depends  on  half-cell  several  types  of  plugs  must  be 
considered: 

1.  main  fluid  plug — an  annulus  surrounded  by  different  packing 
annuli  (e.g.,  plugs  A2,  A4,  B3,  and  B5  of  Figure  2) 

2.  main  solid  plug — an  annulus  surrounded  by  different  fluid 
annuli  (e.g.,  plugs  A3,  A5,  B2  and  B4  of  Figure  2) 

3.  center  solid  plug — completely  surrounded  by  same  fluid 
plug  (i.e.,plug  A1  of  Figure  2) 

4.  center  fluid  plug — completely  surrounded  by  same  solid 
plug  (i.e.jplug  B1  of  Figure  2) 

5.  wall  fluid  plug — tube  wall  on  one  side  and  solid  plug  on 
the  other  (e.g., plug  A6  of  Figure  2) 

6.  well  solid  plug — tube  wall  on  one  side  and  fluid  plug  on 
the  other  (e.g.,  plug  36  of  Figure  2). 

The  AFM  assumes  that  no  heat  transfers  via  radiation,  that  no  heat 
conducts  between  solid  plugs,  that  heat  convents  from  wall  to  fluid 
across  a wall  film  resistance  (hw)  and  from  wall  to  solid  across  a 
stagnant  film,  and  that  heat  convents  from  fluid  to  packing  (solid 
plugs)  across  a pellet  film  resistance  (hp) . These  assumptions, 
together  with  the  underlying  assumptions  of  plug  flow  through  each 
of  the  void  radial  plugs  and  the  mixing  at  plug  outlets  via  the  matrix 
mixing  equations  for  mass  dispersion,  will  be  used  to  develop  appro- 
priate heat  dispersion  relationships  for  each  type  of  plug.  The  re- 
sulting equations  will  then  be  expressed  within  the  context  of  the 


AFM.  The  integral  nature  of  these  equations,  however,  precludes 
condensation  to  matrix  form.  Throughout  the  development,  lower  case 
t refers  to  solid  temperatures  and  upper  case  T to  fluid  temperatures. 
Main  Fluid  Plug 

Consider  a heat  balance  on  a fluid  element  as  shown  in  Figure 
22-a.  The  element  gains  heat  due  to  bulk  inflow  and  from  the  warmer 
solid  above  and  loses  heat  with  the  bulk  outflow  and  to  the  cooler 
solid  below.  Because  of  the  low  gas  thermal  conductivity,  this 
model  neglects  radial  and  axial  heat  conduction  within  the  fluid 
itself.  The  heat  balance  thus  becomes 

dT. 

PCpQj  = hp  a(j,j+l)  - T^]  (20) 

- hp  a(j,j-l)[T^  - t^_^] 

where  the  coordinate  z refers  to  distance  from  the  plug  entrance,  and 
Oj  is  the  volumetric  flow  race  through  the  i th  plug  as  defined  for 
mass  dispersion.  Note  that  the  mass  flux  G (equation  (19))  is 
related  to  AFTI  parameters  via: 

G = p ZQ^/Atube  (21) 

where  j=2,4,.  . . ,N  for  the  A-half-cell  and  j=l,3,.  . . , (N-1)  for 
the  B-half-cell.  The  areas  a(j.j-i-l)  and  a(j,j-l)  are  the  areas 
per  unit  length  available  for  heat  transfer  from  upper  solid  to 
fluid  and  from  fluid  to  lower  solid,  respectively.  Although  Figure 
2 represents  these  areas  as  a single  interface,  their  values  are  not 
simply  27Tr. 
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a.  Main  Fluid  Plug 


b.  Main  Solid  Plug 


c.  Center  Solid  Plug 


d.  Center  Fluid  Plug 


Twall 


e.  Wall  Fluid  Plug 


f.  Wall  Solid  Plug 


Figure  22:  Plug  Types  for  AFl-I  Heat  Dispersion  Analysis 
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The  pellet  to  fluid  heat  transfer  areas  are  based  on  the  total 
surface  area  available  within  a solid  plug,  i.e.,  the  number  of 
pellets  that  can  fit  into  the  solid  plug  volume  times  the  surface 
area  per  pellet.  It  is  then  assumed  that  half  of  this  area  faces 
up  and  half  down  so  that 


2 2 2 

= O.SuRtube  )Sp/Vp 

2 2 2 

= 0.5irRtube  (r.  - r._.  )Sp/Vp 

J J ^ 


(22) 


At  first  glance  this  may  seen  inconsistent  within  the  AK'  context — 
that  the  bed  can  be  represented  by  solid  and  void  spaces  whose  out- 
lines determine  the  flow  pattern.  But  although  the  solids  are  con- 
sidered to  have  definite  boundaries  they  are  porous  media  so  that  the 
available  surface  area  is  actually  greater  than  the  overall  shape 
would  imply.  This  is  similar  to  utilization  of  BET  surface  area 
for  porous  catalysts. 

Note  that  the  effect  of  pellet  shape  on  these  area  parameters  is 
implied  by  the  term  Sp/Vp.  For  spheres,  Sp/Vp=6dp  and  for  cylinders 
Sp/Vp=4dp . 

Main  Solid  Plug 

The  solid  element  shown  in  Figure  22-b  receives  heat  from  the 
fluid  above,  conducts  heat  radially  inward  and  then  loses  heat  to 
the  fluid  below.  This  model  assumes  that  axial  temperature  gradients 
within  the  solid  are  negligible  in  comparison  to  radial  gradients. 
Thus,  at  any  given  z the  steady-state  heat  balance  becomes 
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t 

out 


t. 

in 


r r . 


, r . . qln 
tube  j-1^ 


s J-1 


(23) 


where  q is  the  amount  of  heat  transferred  through  the  solid,  and 
^s  solid  thermal  conductivity.  Note  that  q,  Rtube,  and  A, 

must  be  in  a consistent  set  of  units  (e.g.,CGS,  MKS,  etc.).  But  in 
the  steady-state,  heat  in  equals  heat  out,  or 


q = hpa(j,j+l)  t^^^] 

(24) 

= t>^in  ■ ^j-1^ 

Combining  these  two  equations  leads  to 
T.  + (A*+B)T. 

h.  = — ^ (25) 
in  1+A*+B  ^ ' 


A*T.  , + (1+B)T. , , 

_ ,1-1  j+1 

out  1+A*+B  (26) 

where 

A*  = a(j,j-l)/a(j,j+l)  (27) 


B 


Rtube  a(j,j-l)ln 


^ 


(28) 


Because  the  total  heat  transferred  is  small,  B«1  (see  note,  below) 
so  that  the  solid  has  a flat  radial  profile  at  any  given  z,  i.e. 

^in~  ‘ since  half  of  the  solid  area  faces  up  and  half 
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down  (equation  (22))  A*=l  and  t^  is  the  average  of  the  two  surrounding 
fluid  temperatures: 


t. 

2 


(29) 


(Note:  B<<1  can  be  justified  by  substituting  typical  values  into 

equation  (28).  Suppose  r^=0.6,  r.  ,=0.5,  r.  „=0.4  Rtube=3.6cm, 

2 

hp=.001cal/s-cm  -K,  and  the  spherical  pellets,  dp=.26cm,  are  glass 
so  that  X = .0029cal/s-cm-K.)  This  yields  a(j , j-l)=1.83cm  and  B=.02. 
Center  Solid  Plug 

The  arguments  here  follow  those  for  the  main  solid  plug.  But, 
since  the  solid  is  completely  surrounded  by  a single  fluid  plug 
(Figure  22 -c) 

(30) 


Note  that  this  is  analogous  to  the  Fickian  boundary  condition  of 
zero  temperature  gradient  at  the  tube  centerline. 

Center  Fluid  Plug 

In  this  case,  the  fluid  element  (Figure  22-d)  gains  heat  from 
the  surrounding  solid  and  from  bulk  inflow  and  loses  heat  to  bulk 
flow  only  (no  inner  solid) , so  that 


P Vl'^  " hP  a(l,2)[t2-  ^1^  <^31) 

Wall  Fluid  Plug 

Here,  the  fluid  element  (Figure  22-e)  gains  heat  from  the  wall 
and  from  inflow  and  loses  heat  to  outflow,  so  that 
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= 2iTRtube  hw  [Twall-T  ] 


N 


(32) 


-hp  a(B,N-l) [T^- 


where  Twall  is  the  wall  temperature  (constant) . 

Wall  Solid  Plug 

A solid  plug  in  contact  with  the  wall  as  shown  in  Figure  22-f 
gains  heat  from  the  wall  across  a stagnant  film,  transfers  radially 
inward  via  conduction  and  then  loses  heat  across  a pellet  film 
resistance  to  the  fluid  at  • Within  the  solid  itself,  equation 
(23)  for  the  main  solid  plugs  holds  but  equation  (24)  must  be  re- 
placed by 

q = h*a(s,w)  [Twall  - tout] 

(3; 

= hp  a(N,N-l)  [t^- 

where  h*  is  the  stagnant  wall  film  coefficient  and  a(s,w)  is  the 
area  available  for  heat  transfer  across  the  stagnant  film  per  unit 
length.  Combining  (23)  and  (33)  yields 


t . 


Twall  +(A**+B)  T^_^ 


(34) 


in 


1+A**B 


where 


B=  Rtube  rjj_;]_hp  a(N,N-l)ln( 1 ) 

^N-l^s 


(35) 
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Again,  because  the  total  amount  of  heat  transfer  is  small  (hp  very 
low)  B — >0  so  that 


Twall  + A**  T„  , 

_ N-1 

in  1+A** 

implying  that  the  solid  temperature  is  some  weighted  average  of  the 
wall  and  fluid  temperatures.  For  the  cases  considered  in  the 
Comparison  with  Experiment"  section,  it  was  assumed  that 

tjj=  0.1  Twall  + 0.9Tj^_^  (37) 

where  the  0.1  and  0.9  weighting  factors  were  found  empirically  to 
best  fit  the  base  case  data.  In  retrospect,  these  weights  can  be 
justified  somewhat  by  physical  reasoning. 

The  moving  stream  below  the  solid  plug  should  induce  better 
heat  transfer  than  the  stagnant  between  the  solid  plug  and  the  tube 
wall,  so  that  hp>h*.  And,  the  stagnant  film  heat  transfer  area 
a(s,w)  (not  well-defined  from  system  geometry)  may  range  from 
a(N,N-l)  down  to  some  fraction  of  rDt,  so  that  a(s,w) <a(N,N-l)  and 
hence  A**>1.  Note  that  if  a(s,w) ~a(N,N-l)  and  h*=(.l)hp  then  equation 
(36)  yields  weighting  factors  of  0.09  and  0.91  (as  opposed  to  the 
0.1  and  0.9  of  equation  (37)).  Thus,  although  h*  and  a(s,w)  cannot 
be  ascertained  from  system  geometry,  the  empirically  derived 
weighting  given  by  equation  (37)  seems  reasonable. 
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Condensation  of  Equations  and  Solution  Techniques 

Description  of  the  complete  radial  profile  at  any  given  z with- 
in an  A-half-cell  requires  equations  (30),  (29)  with  j=3,5, . • . ,N-1, 
(20)  with  j=2,4, . . . ,N-2  and  (32).  (In  this  section  N=Nrad,  or  the 
total  number  of  plugs  in  any  half-cell.)  Equations  (29)  with 
j=2,4, . . . ,N-2,  (37),  and  (20)  with  j=3,5, . . . ,N-1  and  (32)  are  required 
for  a B-half-cell.  Since  the  temperatures  vary  with  z,  these  equa- 
tion sets  must  be  integrated  from  plug  inlet  to  outlet  before  mixing 
calculations  can  be  made.  After  the  cells  and  plugs  are  sized 
according  to  Dt/dp  and  ^nd  the  flows  subdivided  and  mixing  matri- 

ces determined  as  outlined  in  the  mass  dispersion  chapter,  the  tem- 
perature profile  at  any  given  axial  position  can  be  obtained  in  the 
following  manner : 

1.  set  all  inlet  temperatures  (solid  and  fluid)  to  Tin. 

2.  within  the  A-half-cell,  integrate  equations  (32)  and  (20) 
for  j=2,4, . . . ,N-2  from  z=0  to  z=0.816dp  (the  length  of 

one  half-cell) . Note  that  this  must  be  done  numerically  as 
the  interdependence  of  the  equations  precludes  analytical 
results.  At  each  integration  step,  obtain  new  solid  tem- 
peratures via  equations  (30)  and  (29)  for  j=3,5,....  The 
outlet  fluid  temperatures  (T^,  T^,...,T^)  becomes  the  ele- 
ments of  the  (N/2)-long  vector  TA(out,n),  where  n is  the 
current  cell  number. 

3.  calculate  the  next  B-half-cell  inlet  temperatures  via  the 
previously-defined  mixing  matrix,  R used  in  the  mass  disper- 


sion calculations: 
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^(in,n)  = R TA(out,n) 

where 

(38) 

TB(in,n)^=[T  T ...  J 

4. 

integrate  equations  (31)  and  (20)  for  j=3,5, . . . ,N-1  from 
2~^3if~cell  inlet  to  outlet,  calculating  new  solid  tempera- 
tures at  each  integration  step  (equations  (37)  and  (29)  for 
J“2,4,  . . . ,N-2) . The  outlet  fluid  temperatures  (Tj^,!^,... 

becomes  the  elements  of  the  (N/2)-long  vector 
^(out,n) . 

5. 

calculate  next  A-half-cell  inlet  temperatures  via  the  pre- 
^iously  defined  mixing  matrix,  S used  in  the  mass  dispersion 
calculations: 

6. 

^(in,n+l)=  S ^(out.n)  (39) 

repeat  steps  2-5  until  the  desired  number  of  axial  cells 
has  been  traversed. 

Model  Parameters 

Of  th6  paramsters  nacessary  for  heat  but  not  mass  dispersion, 

» jd"!)  is  defined  by  the  AFM  in  terms  of  packing  geometry  (equation 
(22))  and  a(s,w)  and  h*  (equation  (36))  are  incorporated  into  the 
weighted  average  of  equation  (37) . The  nature  of  the  coefficients 
hp  and  hw,  on  the  other  hand,  prevents  them  from  being  deter- 
mined solely  by  geometry.  In  fact,  previous  studies  of  flow 
around  submerged  objects  (e.g.  Bird  et  al . , 1960)  and  in  empty 
tubes  (e.g.,  McCabe  and  Smith,  1976)  show  that  film  coefficients  must 
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be  correlated  to  system  variables  such  as  pellet  or  tube  size, 
total  flow  rate,  friction  factor,  and  fluid  properties  (e.g.,  ther- 
mal conductivity  and  specific  heat) . The  AFM  thus  draws  on  this 
experience  to  obtain  general  correlation  forms  for  hp  and  hw. 
Experimental  data  are  needed  to  determine  some  of  the  coefficients. 
Pellet  Film  Coefficient  (hp) 

Forced-convection  heat  transfer  from  a single  sphere  in  an 
infinite  fluid  moving  at  velocity  v*  has  been  related  by  Ranz  and 
Marshall  (1952) (Bird  et  al.,  1960,  p.  409)  to  system  parameters 
via 


where  fluid  thermal  conductivity,  G=pv*,  p=  fluid  density, 

Cp=  fluid  specific  heat  and  p = fluid  viscosity.  At  high  flow  rate, 
the  second  term  on  the  RHS  of  equation  (40)  will  dominate,  yielding, 
for  a fluid  with  constant  physical  properties. 


(41) 


where  K'  is  a constant 


For  long  cylinders  of  diameter  dp  with  v*  perpendicular  to  the 
axis.  Bird  et  aL  (1960,  p.  408)  also  give  a graphical  correlation 
from  Sherwood  and  Pigford  (1952)  of  hp  which  can  be  represented  by 


73 


G cp 


2/3 

gP  P 
luid 


-0.46 

0.42  ^ 

M 


which  yields,  for  a fluid  with  constant  physical  properties 


hp  = K" 


^0.54 
, 0.46 

dp 


K" 


_G 

dp 


0.5 


where  K"  is  a constant,  not  necessarily  equal  to  K' . Note  that 
the  interstitial  value  of  G should  be  used  for  packed  beds  to  account 
for  the  effect  of  overall  bed  voidage  on  velocity. 

According  to  these  relationships,  then,  hp  should  vary  as 
(G/dp)  whether  the  pellets  are  spherical  or  cylindrical. 

Schlunder  (1978)  also  notes  that  the  single-pellet  dependence  of  Nu 
(Nu=hpdp/\^^^^^)  on  the  square  root  of  Re^  should  hold  for  packed 
beds  if  it  is  enhanced  to  account  for  the  extra  turbulence.  The 
use  of  a single  hp  correlation  form  simplifies  use  of  the  AFM. 

However,  pellet  shape  will  influence  the  relative  magnitude  K'/K" 
as  follows.  Consider  the  random  packing  of  cylinders  versus  spheres 
into  a tube.  Because  spheres  have  no  "corners"  the  fluid  moves 
around  hydraulically  smooth  surfaces.  But,  depending  on  their  ori- 
entation, cylinders  may  offer  surfaces  of  smoothness  similar  to 
spheres  (v*  perpendicular  to  pellet  axis)  or  surfaces  inducing  maximum 
turbulence  (v*  parallel  to  pellet  axis) . And,  at  any  angle  in  between 
the  fluid  must  pass  over  some  sort  of  corner.  Thus,  one  can  reason 
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that  the  increased  turbulence  through  cylindrical  (versus  spherical) 
packing  would  lead  to  higher  hp  for  the  same  G and  dp. 

Wall  Coefficient  (hw) 

Forced-convection  heat  transfer  in  empty  tubes  has  been  re- 
lated in  many  forms  to  system  parameters  (e.g.,  Bennett  and  Myers, 

1982;  Greenkom  and  Kessler,  1972;  McCabe  and  Smith,  1976).  McCabe 
and  Smith  (1976),  for  example,  give  the  correlations  for  smooth  and 
rough  pipes  shown  in  Table  6.  Note  the  dependence  of  hw  on  tube 
length  in  the  first  four  relationships;  this  is  probably  due  to  the 
entrance  effect  discussed  earlier.  Thus,  the  AFM  uses  the  fifth 
equation  of  Table  6 as  a guide  for  a general  form  of  correlation  be- 
tween hw  and  other  system  parameters. 

The  relationship  f versus  Re  and  relative  roughness,  (5/Dt) 
in  pipes  is  well-established  (e.g.,  Greenkom  and  Kessler,  1972,  p.  226). 
Each  (5/Dt)  establishes  a separate  curve  (with  f decreasing  as  Re 
increases)  which  can  be  represented  by  several  segments  over  which 

f = K^/Re^  (43) 

where  K^  is  a constant.  For  smooth  pipes,  n is  essentially  constant, 
whereas  for  rough  pipes  n is  maximum  at  low  Re  and  equal  to  zero  at 
"complete  turbulence."  The  Re  above  which  n=0  decreases  as  (5/Dt) 
increases.  The  value  of  n also  decreases  as  (5/Dt)  increases.  Since 
trends  in  hw  are  desired,  equation  (43)  can  be  combined  with  the 
fifth  relationship  of  Table  6 to  give  (for  <})(f)=l) 
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Table  6 

Correlations  for  Forced  Convection  in  Empty  Tubes 


1.  Laminar  Slow  (GDt/y=  Re  < 2100) 


hwDt 

X 


1/3 


K. 


G Cp 


lot  XL 


where  is  a constant  and  L is  tube  length 

2.  Transition  flow  (2100  < Re < 10000) 


hw 
Cp  G 


-2/3 

fDt  rcp  ,1 

II  J 

1 M i ^ J 

-2/3 


where  is  a constant,  L is  tube  length 

3.  Turbulent  flow  (Re  > 10000) 


where  is  a constant  and  L is  tube  length 

4.  Smooth  Pipes  (Re  > 50000) 

u r ^-2/3 

= K f 

Cp  G s X j 


5 .  Any  Re 

hw  _ f 

Cp  G “ (f) 

where  f is  the  friction  factor  and  6(f)  is  some  function  of  f. 


Compiled  from  McCabe  and  Smith  (1976) 
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hw  = K^c  GRe 
f P 


-n 


(44) 


Hence,  for  a fluid  with  constant  physical  properties 


1-n 


hw  = 


Kw  G 
Dt° 


Kw  C- 
r 

Dt 


m 


(45) 


Note  that  interstitial  values  of  G should  be  used  here  to  account 
for  the  effect  of  overall  bed  voidage  on  velocity.  The  following 
trends  should  be  expected  in  fitting  hw  to  data  via  equation  (45): 

1.  constant  m for  smooth  pipes  over  a wide  range  of  flow 
rates — m should  be  higher  for  rough  tubes  than  for  smooth 
ones,  all  else  being  equal; 

2.  increasing  m as  G increases — if  the  range  of  flow  rates  is 
large  enough,  several  different  m-values  may  be  needed; 

3.  increasing  m as  Dt  decreases — that  n decreases  as  (5/Dt) 
increases  implies  n is  directly  proportional  to  Dt  for  a 

material  with  constant  6;  hence,  m=l— n is  inversely 
proportional  to  Dt. 

Other  Parameters  Influenced  by  Pellet  Shape 

To  solve  the  AFM  equations,  the  cells  and  plugs  must  be  sized 

according  to  Dt,  dp  and  that  the  flow  rates  and  mixing 

matrices  can  be  determined.  The  mass  dispersion  cases  established 

these  parameters  for  spherical  packing,  where  radial  and  axial 

porosity  profiles  showed  oscillations  about  e,  . with  cycle  widths 

bed  ■' 

of  0.816  dp.  But,  one  may  question  whether  similar  patterns  would 
occur  with  cylindrical  pellets. 
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The  bed  porosity,  for  cylindrical  packing  is  lower  than 

that  for  spherical  packing  of  the  same  Dt/dp,  if  dp  for  each  pellet 
is  taken  to  be  that  of  a sphere  which  would  occupy  the  same  volume 
(Leva  and  Grummer,  1947b;  Roblee  et  al.,  1958;  Schwartz  and  Smith, 
1953) . This  implies  that  because  of  their  irregular  shape,  more  cy- 
liiiders  can  pack  within  a given  boundary.  And,  cylinders  are 
asymmetric,  so  they  can  assume  any  number  of  orientations  upon  being 
poured  into  a tube.  Roblee  et  al.  (1958)  report  radial  porosity 
profiles  for  beds  packed  with  cylinders.  The  profiles  indeed  show 
oscillation  about  the  lower  However,  no  definite  conclusions 

regarding  the  actual  cycle  width  can  be  drawn  from  their  work  since 
they  present  profiles  for  only  one  Dt/dp.  The  reported  data  repre- 
sent segments,  or  disks,  one  pellet  diameter  long.  Because  of  the 
expected  axial  oscillations  in  porosity,  one  pellet  diameter  is  too 
short  to  represent  average  bed  values  and  too  long  to  yield  axial 
cycle  widths.  Indeed,  the  data  show  two  distinct  profiles,  each 
with  a different  period  of  oscillation. 

Schwartz  and  Smith  (1953)  also  give  radial  porosity  profiles, 
but  the  radial  increments  over  which  measurements  were  taken  are 
too  wide  to  reveal  oscillatory  behavior.  These  authors  also  present 
radial  velocity  profiles  for  cylindrical  packing  which  should  at 
least  hint  at  the  radial  oscillations  in  porosity.  However,  as 
discussed  earlier,  the  measurements  were  made  at  only  five  radial 
positions  in  the  empty  tube  some  distance  beyond  the  packed  section 
and  may  not  be  truly  representative  of  the  packed  bed  itself.  And, 
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Lerou  and  Froment  (1977)  showed  that  velocity  measurements  could 
be  distorted  simply  by  rearranging  the  last  layer  of  pellets. 

Consider  again  the  orientation  of  cylindrical  pellets  into  a 
tube.  If  it  is  assumed  that  the  perpendicular  (pellet  axis  at  right 
angle  to  flow  direction)  and  parallel  (pellet  axis  parallel  to 
flow  direction)  orientations  are  equally  probable,  then  the  fluid 
can  encounter  a barrier  of  width  d or  1 with  equal  probability. 

Thus,  the  AFM  uses  the  geometric  mean 


dp 


fd 


2 + l2 


0.5 


(46) 


as  the  effective  pellet  diameter.  Calculating  dp  in  this  way  assures 
that  if  d=l,  dp=d  whereas  the  equivalent  volume  argument  leads  to 


dp  = (1.5) 


0.33 

d 


regardless  of  the  aspect  ratio  d/1.  The  relationships  presented  for 
spherical  pellets  then  use  of  the  dp  of  equation  (46)  (and  the  corre- 
sponding Dt/dp)  together  with  the  lower  e to  determine  axial 

bed 

cell  length  and  radial  plug  width  as  presented  for  the  mass  dispersion 
cases.  The  individual  flows  and  weighting  matrices  follow  accordingly. 
(Note  that  if  is  not  measured  but  instead  determined  from  the 

data  of  Leva  and  Grummer  1947b  dp=d/4  should  be  used  to  calculate 
Dt/dp  in  using  their  graphs — but  not  in  AFM  equations — since  that 
is  the  manner  in  which  their  data  are  presented.) 
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Determination  of  Film  Coefficients 
The  previous  section  established  that  hp  should  be  proportional 
to  the  square  root  of  (G/dp)  (equation  (41))  with  hp  for  cylindrical 
pellets  excess  hp  for  spherical  pellets  under  equal  conditions. 

This  in  turn  implies  that  if  hp  is  known  at  one  G/dp  or  "base  case" 
for  a given  packing  (e.g.,  smooth  spheres,  rough  spheres,  smooth  cy- 
linders, etc.)  the  hp  at  any  other  G/dp  combination  can  be  determined 
from 


hp  = hp 


base 


Gint 


Gint,  base 


dp,  base 


^Q.5 


dp 


(48) 


where  Gint  = *-7 — ; — 

e,  Atube 
bed 

It  was  also  established  that  hw  should  vary  as  G™  where  m depends  on 
system  variables  such  as  tube  diameter,  pipe  material  and  degree  of 
turbulence  (i.e.,  range  of  G) . Since  turbulence  in  packed  beds  cannot 
be  readily  defined  (refer  to  earlier  discussions  of  particle-  and 
hydraulic-Re  in  the  mass  dispersion  chapter) , the  value  of  m cannot 
be  specified  a priori  but  must  be  fit  to  data  for  a given  set  of  system 
variables  (Dt,  pipe  material)  over  the  desired  range  of  flow  rates. 
While  this  may  at  first  seem  dissatisfying,  note  that  since  hp  is 
predetermined  according  to  a base  case,  hw  remains  the  sole  parameter 
to  be  correlated.  The  power-law  expression  for  hw  (equation  45)) 
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is  simple  to  work  with.  Also  recall  that  no  single  correlation  for  hw 
exists  even  for  forced-convection  in  empty  tubes  due  to  the  complex 
nature  of  turbulence.  (This  may  also  be  the  reason  that  so  many  cor- 
relations exist  for  the  hw  used  in  conjunction  with  the  Fickian  analogy.) 

To  adequately  fit  these  parameters  several  types  of  data  are  de- 
sired: 

1.  bulk-average  outlet  fluid  temperature,  Tb,  out — to  indicate 
the  total  amount  of  heat  transferred, 

2.  radial  temperature  profiles~to  indicate  radial  dispersion  of 
heat;  temperature  at  one  ratial  position  other  than  wall 
(e.g.,  tube  centerline)  should  suffice  if  used  in  conjunction 
with  Tb,  out, 

3.  axial  temperature  profiles — to  support  the  argument  that  hw 
should  be  constant  for  packed  beds  since  the  turbulence  never 
dies  out. 

These  data  types  are  listed  in  order  of  preference.  That  is,  Tb,  out  is 
the  most  preferred  because  its  measurement  is  accurate  and  straightfor- 
ward. And,  since  the  AFM  will  most  likely  be  unable  to  attain  a 
"perfect  fit,"  radial  temperature  profiles  cannot  be  used  without 
knowledge  of  the  flow  distribution  at  the  measurement  point  to  deter- 
mine Tb,  out.  Most  of  the  flow  within  a packed  bed  channels  towards 
the  tube  wall  so  that  fluid  temperatures  closest  to  the  wall  should 
be  weighted  most  heavily.  But  if  the  temperature  profiles  are  measured 
in  the  empty  tube  some  distance  beyond  the  packed  section  judgment  must 
be  used  in  weighting  the  individual  radial  temperatures  to  determine 
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Tb,  out.  (Recall  from  earlier  discussion  that  the  radial  distribution 
of  flow  rate  changes  as  the  fluid  exits  the  packing.)  And,  axial  tem- 
perature gradients  at  a single  radial  position  alone  provide  too  little 
information  to  correlate  hw. 

To  correlate  hp  and  hw  for  the  AFM  a base  case  must  first  be 
chosen.  The  system  should  contain  the  fewest  possible  unknowns. 

It  should  have  spherical  packing  to  eliminate  uncertainties  regarding 
flow  and  porosity  profiles  and  pellet  shape.  The  pellets  should  be 
smooth  to  eliminate  uncertainties  regarding  surface  roughness.  The 
tube  should  be  made  of  a smooth  material  so  that  the  exponent  m 
(equation  45))  will  be  constant  over  a large  range  of  flow  rates. 

Within  this  system,  a single  experiment  is  designated  as  base  case  for 
which  hp  and  hw  are  determined  by  trial  and  error  to  give  the  best 
Tb,  out  and  radial  and  axial  temperature  profiles.  This  value  of 
hp  is  used  as  hp,  base  in  equation  (48)  and  the  corresponding  flow 
rate,  bed  porosity  and  pellet  size  yield  Gint,  base  and  dp,  base. 

After  the  base  case  has  been  established,  the  functional  forms 
of  equations  (48)  and  (45)  can  be  verified  by  changing  dp  and  G. 

Note  that  changes  in  Dt/dp  may  effect  which  must  then  be  in- 

corporated in  the  value  of  Gint.  The  coefficient  hp  is  predetermined 
by  equation  (48)  but  hw  must  be  best-fit  to  each  new  experiment. 

If  the  tube  is  hydraulically  smooth  (e.g.,  glass  or  brass,  Bennett 
and  Myers,  1982)  one  can  verify  the  heat  transfer/friction  factor 
analogy  implied  in  equation  (45)  by  comparing  the  value  of  m predicted 
for  empty  tubes  to  that  needed  by  the  AFM  in  equation  (45) . For  smooth 
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empty  tubes,  m should  be  constant  over  a wide  range  of  Re  (flow  rates) 
(see,  for  example,  Greenkorn  and  Kessler,  1972,  pg.  226).  Curve- 
fitting the  empty  tube  value  of  f at  Re=60,000  and  250,000  leads  to 

- 202 

4f  = 0.184  Re 


(These  values  of  Re  have  no  significance  other  than  convenience  in 
reading  the  f-Re  graph.)  Thus,  n=0.2  and  m=0.8  (equation  (45))  so 


that 


hw  = hw,base 


Gint 

Gint,  base 

J 


0.8 


(49) 


should  hold  for  smooth  tubes.  Stretching  the  analogy  further  would 
imply  that  experiments  carried  out  in  rough  tubes  should  lead  to 
m>0.8. 

The  hypothesis  that  pellet  shape  would  effect  the  magnitude, 
but  not  functional  form  of  hp  can  be  tested  by  letting 


hp  = Y hp,  sphere 


= Y hp,  base 


Gint  dp, base 


Gint, base  dp 


0.5 


(50) 


where  y is  a constant  that  accounts  for  enhanced  heat  transfer  due  to 
increased  turbulence  from  non-smooth  or  asymmetric  pellets.  For  cy- 
lindircal  pellets,  then,  a new  base  case  must  be  selected  and  the  co- 
efficients hp  and  hw  again  fit  by  trial  and  error.  The  constant  y 
can  then  be  back-calculated  from  equation  (50) . For  the  hypothesis 
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to  be  valid,  y should  exceed  one  but  should  remain  constant  for 
all  systems  employing  cylindrical  pellets o 

Comparison  Tvrith  Experimental  Data 

This  section  presents  AFM  heat  dispersion  results  for  beds  packed 
with  uniformly  sized  spherical  or  cylindrical  pellets.  Model  para- 
meters are  related  to  the  framework  within  which  they  were  developed — 
submerged  object  form  for  hp  (equations  (48)  and  (50))  and  friction 
factor  analogy  for  hw  (equation  (45)).  In  general,  AFM  resulta  are 
not  compared  to  the  Fickian  analogy  because  the  large  number  of 
correlations  available  for  pertinent  parameters  (as  discussed  at  the 
beginning  of  this  chapter)  would  yield  a wide  range  of  solutions  to 
equation  (19).  However,  where  appropriate,  comparisons  with  back-fit 
Fickian  model  may  be  made. 

It  should  be  noted  in  reading  this  section  that  the  AFM  uses 
interstitial  mass  fluxes,  Gint,  to  account  for  the  effect  of  overall 
bed  voidage  on  velocity.  Any  G's  attributed  to  other  researchers 
represent  superficial  values. 

Yagi  and  Wakao  (1959)  give  both  centerline  and  bulk-average  outlet 

temperatures  for  their  experiments  in  a (smooth)  brass  tube  packed 

with  smooth,  uniformly  sized  glass  pellets.  They  used  one  tube  size 

with  two  different  pellet  sizes  over  a range  of  particle-Reynolds  num- 

2 

bers  100<Re^<700.  For  their  "F-1"  run  (G=2740  kg/hr-m,  Dt=3.6cm,  dp=.6 
cm)  they  also  give  the  axial  variation  in  centerline  temperature This 
was  therefore  selected  as  the  base  system  with  run  F-1  as  the  base  case. 
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2 

Figure  23  compares  AFM  results  (hp,base=.002  cal/s-cm  -K  hw,base= 
2 

.002  cal/s-cm  -K)  and  best-fit  Fickian  profile  and  Tb,  out  to  data 
for  the  base  case.  Table  7 compares  AFM  and  best-fit  Fickian  results 
to  outlet  centerline  and  bulk-average  temperature  data  for  all  other 
E"  (dp=0.26cm)  and  "F"  (dp=0.6)  runs  with  hp  determined  from  equation 
(48)  and  hw  from  equation  (49),  i.e.  equation  (45)  with  m=0.8.  In 
predicting  bulk  outlet  values,  the  AFM  surpasses  the  Fickian  analogy 
in  all  but  three  of  the  cases  (in  two  of  these,  it  differs  from  the 
Fickian  back-fit  by  only  0.2  C) . In  predicting  outlet  centerline 
temperatures,  the  AFM  again  surpasses  the  Fickian  back-fit  in  all 
but  three  cases  (in  two  of  these,  the  AFM  prediction  of  the  corre- 
sponding Tb,  out  is  within  0.2°C  of  the  Fickian  back-fit).  The  worst 
AFM  fit  is  for  the  centerline  temperature  of  the  Rep=106  case.  But, 
recall  from  earlier  discussion  that  the  relationship  given  by  equation 
(48)  is  a simplified  version  of  equation  (40);  it  presumes  that  flow 
rate  is  high  enough  to  dominate  the  RUS  of  equation  (40) . If  the  flow 
rate,  or  is  low,  the  constant  term  may  begin  to  assert  itself, 

i.e.,  the  hp  based  on  the  complete  version  (equation  (40))  would  be 
larger  than  hp  determined  from  the  simpler  version  (equation  (48)) 

(For  example,  the  AFM  can  better  fit  the  data  with  the  same  hw  and 
higher  hp — at  1.2  times  the  value  used  in  Table  7 — to  give;  (1) 
centerline  temperature  of  63.4°C  (AFM)  versus  65.3°C  (data);  and  (2) 

Tb,  out  of  78.3  C (AFM)  versus  77.3°C  (data).)  Further,  Table  7 notes 
that  the  AFM  must  distribute  the  flow  according  to  the  laminar/transi- 
tion,  rather  than  turbulent,  hydraulic  resistances.  The  mass  dis- 
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z/dp 


Figure  23:  Axial  Temperature  Profiles  for  Re  =234, 

Dt/dp=6.0,  Data  of  Yagi  and  Wakao^(1959) 
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Table  7 

AFM  for  Heat  Dispersion  in  Smooth  Brass  Tube  Packed  With 

Glass  Spheres 


p 

(cm) 

Item 

(at  exit) 

Data 

a 

AFM 

Fickian 

0.6 

234 

tc 

69.8 

69.9 

68.5 

^b 

78.8 

78.1 

77.9 

0.6 

382 

^c 

63.6 

62.3 

62.1 

Tb 

74.8 

71.7 

73.8 

0.6 

691 

<^c 

56.1 

57.8 

54.1 

"b 

69.2 

67.9 

67.7 

0.26 

106*^ 

"c 

65.3 

60.2 

64.0 

^b 

77.3 

77.8 

76.4 

0.26 

183 

51.3 

49.4 

50.1 

"b 

69.7 

70.4 

69.0 

0.26 

238 

t 

c 

52.1 

48.8 

49.7 

^b 

68.1 

69.9 

66.5 

0.26 

323 

t 

c 

50.1 

48.2 

47.9 

Tv 

67.1 

69.3 

65.5 

a.  AFM  predictive;  used  e^^^-0.40  in  all  calculations 

b.  Fickian  back-fit;  parameters  specified  in  Table  8 

c.  AFM  used  laminar /transit ion  hydraulic  resistances  to 
radially  distribute  flows. 


All  data  from  Yagi  and  Wakao  (t959  ) ; air  at  inlet  near 
T^^=20°C;  Twall=100°C,  Dt=3.6cm  in  all  cases. 
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persion  chapter  states  that  this  is  necessary  at  Rep<150,  implying 
that  Re^ — while  not  the  sole  parameter  dictating  packed  bed  turbu- 
lence— must  give  some  indication  as  to  flow  regime.  It  is  therefore 
possible  that  at  this  low  Rep=106  the  hw  exponent  m (equation  45)) 
may  not  be  0.8.  Even  for  smooth  pipes,  the  f-Re  curve  has  distinct 
regions  for  laminar  and  turbulent  flow.  For  this  reason  and  because 
only  one  heat  dispersion  data  set  was  available  at  Re  <150,  the  hp 
values  were  not  fit  to  the  complete  form  (equation  (40)). 

According  to  these  arguments,  then,  the  use  of  equation  (48)  to 
determine  hp  is  justified.  And  the  fact  that  m=0.8  for  hw  correlates 
the  data  so  well  justifies  not  only  the  form  of  hw  given  by  equation  (45) 
but  also  the  friction  factor  ananlogy.  Recall  from  the  previous  section 
that  m=0.8  was  predicted  solely  from  arguments  relating  heat  to  friction 


factors  in  empty  tubes  (equation  (49)).  It  should  be  noted  that  Yagi 

0 8 

and  Wakao  also  found  hw  to  vary  as  G ’ in  correlating  the  Fickian 
analogy  to  their  experiments.) 

Other  systems  for  which  the  literature  provides  the  actual 
temperature  data  needed  to  correlate  AFM  parameters  are  summarized 
in  Table  9.  This  table  excludes  any  systems  containing  pellets  of 
high  thermal  conductivity  (e.g .,  Baumeister  and  Bennett,  1958;  Colburn, 
1931;  Kwong  and  Smith,  1957)  since  the  AFM  presumes  no  conduction  be- 
tween pellets,  and  it  excludes  any  systems  of  highly  irregular  geometry, 
i.e.,  annular  or  other  non-circular  tubes  (e.g.,  Wakao  and  Kato,  1969; 


Yagi  and  Kunii,  1960)  or  packing  made  up  of  anything  but  uniformly 


Table  9 Available  Temperature  Data 
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beds  packed  with  mixtures  of  pellet  sizes;  thus,  data  not  compared  herein  because  of  uncer 
tainty  in  bed  porosity  characteristics. 
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sizsd  spheres  or  cylinders  (e.g..  Leva  and  Grummer,  1948) . Some  systems 
of  the  desired  geometry  were  also  rejected  for  purposes  of  AFM  corre- 
lation for  other  experiment-related  reasons  as  noted  in  Table  8. 

Whereas  Yagi  and  Wakao  (1959)  used  smooth  brass  tubing,  the  other 
researchers  listed  in  Table  8 used  "standard"  pipe,  which  is  probably 
rougher  than  brass  (e.g.,  Bennett  and  Myers,  1982).  Thus,  these  systems 
should  yield  higher  m values  in  the  hw  correlation  and  may  exhibit 
several  flow  rate  regimes  over  which  m can  be  considered  constant. 

Only  Tb,  out  data  are  available  for  the  spherical  systems  (other  than 
Yagi  and  Wakao,  1959) , as  noted  in  Table  8.  While  Tb,  out  provides 
sufficient  information  with  which  to  correlate  hw  (recall  discussion 
in  previous  section)  the  absence  of  radial  or  axial  temperature  pro- 
files prevents  double-checking  the  goodness  of  fit.  But,  the  form 
of  equation  (45)  implies  that  a log-log  plot  of  hw  versus  G should  pro- 
vide a straight  line  of  slope  m.  The  degree  of  scattering  over  small 
segments  of  G should  indicate  the  adequacy  of  the  correlation.  A dis- 
tinct change  in  slope  at  high  or  low  G would  indicate  that  the  system 
has  moved  from  one  f-versus-Re  regime  to  another. 

Such  log-log  plots  of  AFM  hw  versus  flow  rate  for  smooth  glass 
spherical  packing  in  standard  pipe  (Leva  1947a)  are  shown  in  Figure  24 
for  the  smaller  tube  (Dt=1.58cm,  Dt/dp=4.95,  runs  lOOa-e)  and  in  Figure 
25  for  the  larger  tube  (Dt=5.26cm,  Dt/dp=5.33,  runs  9a-h) . Each  plot 
shows  a definite  straight  line  segment  with  the  expected  change  in 
slope  (m  not  constant  for  all  G in  rough  tubes)  and  with  essentially  no 
scatter  in  the  constant  slope  segment.  The  values  of  m=1.0  for  the 
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Figure  24:  AFM  Wall  Film  Coefficients  for  Data  of 

Leva  (1947b),  Runs  lOOa-e,  Dt/dp=4.95,  Dt=1.6cm 
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w = Flow  Rate  (lb  /hr) 
m 


Figure  25:  AFM  Wall  Film  Coefficients  for  Data  of 

Leva  (1947b),  Runs  9a-h,  Dt/dp=5.33,  Dt=5.3cm 
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tube  and  m=0.89  for  the  larger  tube  are  consistent  with  the  friction 
factor  analogy  discussed  earlier:  for  tubes  of  the  same  material,  m 
should  be  inversely  proportional  to  Dt. 

The  available  literature  data  for  cylindrical  pellets  provide 
only  radial  temperature  profiles  (albeit  at  several  bed  depths  for 
Coberly  and  Marshall,  1951)  without  corresponding  Tb,  out  values. 
Fitting  hw  to  data  of  this  type  presents  some  difficulty  as  the  dis- 
tance between  temperature  measurement  point  and  bed  exit  increases. 
Unless  the  temperatures  are  actually  measured  inside  the  packed 
section,  the  difficulty  in  fitting  hw  would  also  increase  as  the  bed 
length  increases.  Consider  the  following  arguments. 

As  the  fluid  exits  the  packed  section  it  mixes  radially  as  it 
expands  from  the  packing  interstices  into  the  empty  tube.  As  the 
fluid  moves  further  into  the  empty  section,  its  flow  tends  to  redistri- 
bute from  the  maxlmum-near-wall  profile  characteristic  of  packed  beds 
to  the  maxlmum-near-wall  profile  characteristic  of  empty  tubes.  Thus, 
at  the  bed  exit,  mixing  occurs  because  of  bulk  fluid  motion  in  the 
radial  direction.  This  bulk  mixing  should  in  turn  effect  the  tem- 
perature profile  as  the  hotter  fluid  near  the  wall  mixes  with  the 
cooler  fluid  near  the  centerline.  This  effect  would  be  most  dramatic 
when  temperature  profiles  just  inside  the  bed  exit  are  the  sharpest, 
i.e.  for  short  beds.  This  exit  effect  may  also  cause  difficulty  in 
determining  hp  since  it  is  the  AFM's  instigator  of  radial  temperature 
gradients. 
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Furthermore,  Lerou  and  Froment  (1977)  and  deWasch  and  Froment 
(1972)  observed  "humps"  in  their  measured  radial  temperature  profiles. 
These  humps  were  most  pronounced  for  short  beds  and  tended  to  disappear 
as  bed  length  was  increased.  That  these  humps  may  be  results  of  the 
measurement  exit  effect  is  further  supported  by  the  ability  of  deWasch 
and  Froment  to  find  a point  for  temperature  measurement  beyond  the 
packed  section  after  which  the  humps  disappeared. 

Coberly  and  Marshall  (1951)  ran  their  experiments  with  the  thermo- 
wells "...nearly  touching  the  packing."  They  also  measured  radial 
profiles  at  several  bed  depths,  keeping  all  other  system  variables 
constant.  Thus,  if  hw  and  hp  are  fit  to  their  data  at  maximum  bed 
depth,  the  corresponding  AFM  predicted  axial-radial  temperature  pro- 
files can  be  compared  to  data  to  provide  added  insight  into  the  goodness 
of  fit.  These  researchers  studied  several  system  geometries,  but  the 
system  of  3/8"  x 1/2"  cylinders  packed  in  a 5"  tube  was  selected  for 
AFM  comparison  since  it  provided  the  smallest  Dt/dp.  The  geometric 
mean  dp  (equation  (46))  for  cylinders  of  this  aspect  ratio  is  0.44" 
so  that  Dt/dp=11.3. 

Figure  26  shows  the  log-log  plot  of  AFM  hw  versus  flow  rate  for 
this  system  and  Figure  27  compares  the  corresponding  AFM  axial  tempera- 
ture profiles  (at  several  radial  positions)  to  experimental  data.  In 
Figure  26  note  the  constant  slope  segment  breaking  off  at  low  flow 
rates,  in  accordance  with  the  friction  factor  analogy.  The  high  value 
of  m=2  cannot,  however,  be  explained  within  that  framework.  Note  from 
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Figure  26 : 


AFM  Wall  Film  Coefficients  for  Data  of 
Coberly  and  Marshall  (1951) , 3/8"xl/2" 
Cylindrical  Pellets 
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Figure  27  how  closely  AFM  results  follow  the  axial  temperature  profiles. 
The  largest  deviations  are  at  small  r near  z=0.  But,  as  indicated 
on  the  Figure,  the  flow  rates  at  these  inner  radii  are  small  pro- 
portions of  the  total  stream.  Thus,  those  points  with  the  largest 
absolute  error  in  temperature  will  have  the  smallest  relative  contri- 
bution to  the  overall  system.  This  factor  becomes  especially  impor- 
tant in  extending  the  AFM  to  include  catalytic  reactions. 

In  fitting  hp  and  hw  to  temperature  profiles  for  all  four  flow 
rates  (at  maximum  bed  depths,  i.e.,  sequence  number  six  in  each  run 
set)  some  judgment  was  needed  in  weighting  the  temperatures  closest 
to  the  wall  more  heavily  than  others,  as  discussed  in  the  previous 
section.  Thus  hw  was  fit  for  each  case  by  trial  and  error  BEFORE  any 
plots  were  made  to  avoid  bias  towards  the  functional  form  of  equation 
(45). 

The  constant,  y used  to  determine  hp  via  equation  (50)  was 
determined  from  run  1-6  to  be  1.33.  This  value  of  is  consistent 
with  the  idea  that  cylindrical  pellets  increase  turbulence  and  enhance 
heat  transfer  over  what  would  be  expected  for  spherical  pellets. 

Figure  28  shows  the  log-log  plot  of  AFM  hw  versus  flow  rate  for 
the  data  of  Lerou  and  Froment  (1977)  (Dt=9.9cm,  cylindrical  pellets 
with  d=l=dp=0. 95cm,  bed  length=48. 8cm) . This  plot  also  shows  consis- 
tency with  the  friction  factor  analogy  as  the  constant  slope  of  m=0.66 
at  low  flow  rate.  The  magnitude  of  m<0.8  cannot,  however,  be  explained 
within  the  framework  of  the  friction  factor  analogy.  Since  neither 
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Figure  27: 


Axial  Temperature  Profiles  for  Data  of 
Coberly  and  Marshall  ^1951),  3/8"xl/2" 
Cylindrical  Pellets,  at  two  Radial  Positions 
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Figure  28:  AFM  Wall  Film  Coefficients  for  Data  of  Lerou  and 

Froment 
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Tb,  out  values  nor  axial  temperature  profiles  are  available  for 
these  experiments,  no  further  checking  via  data  can  be  done.  Here, 
as  above,  hp  was  calculated  from  equation  (50)  with  y=1.33  and  hw  was 
determined  by  more  heavily  weighting  the  outermost  temperatures  with 
the  same  precautions  to  avoid  bias  towards  equation  (45) . 

Note  the  slight  scattering  of  points  about  the  straight  segment 
in  Figure  28.  The  scattering  may  indicate  deviation  from  the  friction 
factor  analogy  or  hw.  Recall,  however,  the  effect  of  thermowell  place- 
ment on  data  accuracy  when  Tb,  out  is  unavailable.  Although  Lerou  and 
Froment  give  no  specific  axial  location  of  thermowells,  they  state 
that  their  apparatus  is  similar  to  that  used  by  deWasch  and  Froment 
(1972) . In  their  experiments,  deWasch  and  Froment  located  their 
thermocouples  "...slightly  above  the  packing,  at  a distance  of  one 
pa-rticle  diameter.  From  this  distance  onwards,  the  radial  temperature 
profile  was  completely  smooth."  In  light  of  the  earlier  discussion 
regarding  humps  in  the  radial  temperature  profiles,  this  may  imply 
that  the  flow  redistribution  causing  the  exit  effect  may  already  be 
complete  by  the  time  the  measurement  is  taken.  Thus,  the  AFM  may  have 
been  fit  to  a temperature  profile  that  is  flatter  than  the  one  just 
before  the  end  of  the  packed  section.  A f latter-than-actual  profile 
would  imply  that  the  fluid  had  extra  "time"  to  gain  heat,  i.e.,  that  the 
effective  flow  rate  was  lower  than  actual.  This  may  explain  the  low 
value  of  m=0.66  obtained  for  these  experiments.  For  this  reason,  the 
AFM  was  not  fit  to  the  data  of  deWasch  and  Froment  (1972). 
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Summary  of  AFM  for  Heat  Dispersion 

The  Alternating  Flow  model  presumes  that  heat  disperses  radially 
in  packed  beds  through  a film  resistance  at  the  tube  wall  and  then 
through  a series  of  pellet  film  resistances  and  that  heat  disperses 
axially  as  the  fluid  repeatedly  splits  and  merges  as  it  traverses 
many  pellet  layers.  The  AFM  focuses  on  fundamental  system  parameters 
such  as  turbulence,  pellet  size  and  shape  and  tube  characteristics.  Of 
those  AFM  parameters  needed  for  heat  but  not  mass  dispersion,  only 
one,  hw,  must  be  back-fit  for  each  new  set  of  tube-related  variables 
(e.g.,  tube  material  and  diameter) . This  back-fitting  is  necessary  be- 
cause of  the  complex  nature  of  forced-convection  film  heat  transfer. 

The  wall  coefficient,  hw,  follows  a friction  factor  analogy  well, 
giving  some  insight  as  to  how,  in  general,  it  will  depend  on  other 
system  variables.  The  friction  factor/heat  transfer  analogy  gained 
credibility  as  hw  versus  flow  rate  correlations  took  on  the  expected 
form.  (Indeed,  for  the  case  of  smooth  tube  material,  the  exponent  m 
of  equation  (45)  could  be  predicted  solely  from  empty  tube  arguments.) 
The  pellet  heat  transfer  areas  are  determined  from  packing  geometry 
(equation  (22)).  The  pellet  film  coefficient,  hp,  correlated  well 
to  system  variables  via  equation  (48)  . This  supports  the  presupposition 
that  hp  for  pellets  would  correlate  in  the  same  general  form  as  hp 
for  a single  pellet  submerged  in  an  infinite  fluid. 

In  addition,  the  AFM  gave  good  results  for  both  cylindrical  and 
spherical  pellets.  This  justifies  the  correlation  of  hp  by  equation 
(50)  (with  Y=1  for  spheres  and  1.33  for  cylinders).  The  good  fit  of 
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AFM  to  data  for  cylindrical  pellets  also  justifies  using  a geometric 

mean  pellet  diameter  (equation  (46))  and  the  lower  e,  expected  for 

bed 

cylindrical  packing  in  the  porosity  relationships  for  spherical  packing. 
These  relationships  in  turn  determine  flow  distribution  and  mixing 
characteristics . 


CHAPTER  IV 
REACTION 

Previous  chapters  demonstrated  the  applicability  of  the  Alternat- 
ing Flow  model  to  simple  cases  of  heat  and  mass  dispersion  in  packed 
beds.  This  chapter,  therefore,  extends  the  AFM  to  include  catalytic 
reaction  within  the  packing  material.  AFM  equations  for  both  adia- 
betic  and  wall-cooled  reactors  are  developed  and  applied  to  example 
problems  so  that  general  AFM  trends  can  be  demonstrated.  First-order 
intrinsic  kinetics  in  the  diffusion-limited  regime  are  used.  Unlike 
previous  chapters,  however,  no  comparison  to  actual  data  is  made  here. 
The  intent  of  this  chapter  is  to  point  out  differences  between  the  AFM 
and  the  Fickian  analogy,  thus  laying  the  foundation  for  future  work. 

Model  Development 

The  AFM  views  cases  involving  catalytic  reaction  as  a combination 
of  mass  and  heat  dispersion  steps.  As  the  fluid  moves  through  each 
radial  plug,  its  reactant  concentration  decreases  because  of  reaction 
to  the  surrounding  solid  plugs  and  its  temperature  increases  due  trans- 
fer of  heat  of  reaction  across  a film  from  the  solids.  In  general, 
the  AFM  obtains  fluid  concentrations  and  temperatures  from  the  plug 
flow  equation  for  each  fluid  plug  and  obtains  solid  temperatures 
from  steady— state  pellet  heat  balances.  The  AFM  uses  heat  and  mass 
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dispersion  parameters  developed  in  previous  chapters  and  any  required 
reaction-diffusion  parameters  (e.g.,  intrinsic  kinetics  and  effective 
pellet  diffusivity) . In  addition,  the  AFM  also  employs  the  assump- 
tions customarily  applied  to  reaction-diffusion  problems  (e.g.,  Lee, 
1985;  Carberry,  1976;  Froment  and  Bischoff , 1979)  : 

1.  dominating  external  heat  transfer  resistance — isothermal 
pellet  with  all  of  the  temperature  drop  across  the  external 
film, 

2.  negligible  external  mass  transfer  resistance — concentration 
at  pellet  surface  equal  to  surrounding  fluid  concentration. 

Any  previously- stated  AFM  assumptions  also  carry  over. 

As  in  the  heat  dispersion  chapter,  each  plug  type  must  be  treated 
separately: 

1.  main  solid  plug  (e.g.,  plugs  A3,  A5,  B2,  and  B4  of  Figure  2) — 
each  side  subjected  to  a different  concentration,  thus  a 
"two-sided"  rate  expression  must  be  used;  solid  temperature 
obtained  via  steady-state  film  heat  balance; 

2.  main  fluid  plug  (e.g.,  plugs  A2,  A4,  B3,  and  B5  of  Figure  2) — 
surrounding  solids  at  different  temperatures,  thus  radial  loss 
of  reactants  at  two  different  rates;  temperature  rise  due 

to  heat  transfer  from  both  films; 

3.  center  solid  plug  (e.g., plug  A1  of  Figure  2) — surrounded  by 
single  fluid  annulus,  so  no  need  for  "two-sided"  rate  expres- 
sion; steady-state  heat  balance  yields  solid  temperature; 
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4.  center  fluid  plug  (e.g.,  plug  B1  of  Figure  2) — surrounded  by 
single  solid  annulus,  thus  only  one  rate  needed;  temperature 
rise  due  to  heat  transfer  from  film; 

5.  wall  solid  plug  (e.g.,  plug  B6  of  Figure  2) — wall  on  one  side 
and  fluid  on  the  other  implies  rate  into  fluid  and  no  reaction 
at  the  wall;  in  wall-cooled  reactor,  heat  transfer  at  wall 
requires  inclusion  of  stagnant  film  wall  coefficients  h*, 
a(s,w)  of  Heat  Dispersion  chapter);  adiabatic  reactor  implies 
symmetric  boundary  conditions  and  provides  an  expression 
similar  to  the  one  for  the  center  solid  plug; 

6.  wall  fluid  plug  (e.g.,  plug  A6  of  Figure  2) — rate  of  reaction 
into  solid  below  but  not  to  wall  above;  heat  transfers  in 
across  a pellet  film  resistance  (hp)  from  below;  and,  for  a 
wall-cooled  reactor,  out  across  a wall  film  resistance  (hw) 

as  described  for  the  simple  heat  dispersion  case;  no  wall  heat 
transfer  in  the  adiabatic  reactor. 

Throughout  the  following  development,  lower  case  t refers  to  solid 
temperature  and  upper  case  T to  fluid  temperature. 

^lain  Solid  Plug 

Consider  a solid  plug  with  each  face  subjected  to  different 
conditions  (Figure  29-a) . For  a catalyst  with  unsymmetrical  concen- 
tration boundary  conditions,  the  work  of  Tan  and  Smith  (1980)  for 
first  order  intrinsic  kinetics 


r^=  C k(t)  = C k^exp(-gZt) 


(51) 
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a.  Main  Solid  Plug 


c.  Center  Solid  Plug 


e.  Wall  Solid  Plug 


b.  Main  Fluid  Plug 


rt 

/ / / / / 
^\sL3iSj/  / / / / , 

2 

— 5*- 

d.  Center  Fluid  Plug 


Figure  Plug  Types  for  AFM  Reaction  Analysis 
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can  be  applied  to  give  the  molar  flux,  for  diffusion-limited  cases 

(^>3,  (f.=L(k/De)°-^)  : 


J.  = C. [ De  k(t)  ] 

1 1 \ / j 


0.5 


(52) 


2 

where  i = top  or  bottom,  is  the  molar  flux  (mol/cm  ) out  the  i-th 
face,  is  the  concentration  of  the  key  component  (mol/cm  ) at  the 
i-th  face,  De  is  the  effective  diffusivity  of  the  key  component  in  the 
catalyst  and  k is  the  rate  constant  evaluated  at  the  pellet  temperature. 
(Appendix  H develops  the  rate  expression  for  unsyrametric  boundary 
conditions  and  more  general  intrinsic  kinetics.)  In  the  steady- 
state  any  heat  generated  by  reaction  is  transferred  across  the  pellet 
film  resistance  to  give 

hp  a(j  ,j-l)  [t^-Tj_^]  + hp  a(j  ,j+l)  [t^-T^_^^] 


(53) 


= (-AH)  Sp[C^_^4C^^^]  [ De  k(t.)  ] 


0.5 


where  hp  is  the  pellet  film  heat  transfer  coefficient  (defined  in 
the  heat  dispersion  chapter),  a(j,j+l)  and  a(j,j-l)  are  the  corre- 
sponding heat  transfer  areas  (also  previously  defined,  equation  (22)) 
and  (-AH)  is  the  heat  of  reaction.  The  heat  dispersion  chapter  assumes 
that  half  of  the  pellet  surface  area  faces  up  and  half  down  (equation 

f 

(22))  so  that  a(j , j+l)=a(j , j-l)=Sp.  Because  the  fluid  temperatures 
are  "known"  at  any  position  within  the  half-cell  (e.g.,at  inlet 
from  mixing  calculations  or  elsewhere  from  integration  of  fluid 
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equations)  equation  (53)  contains  only  one  unknown:  the  pellet 

temperature.  But,  the  exponential  form  of  the  rate  constant  prevents 
direct  solution  for  t,  so  that  "trial  and  error"  must  be  used.  If  no 
solution  is  possible,  i.e.,  the  heating  curve  (RHS  of  equation  (53)) 
does  not  intersect  the  cooling  curve  (LHS  of  equaiton  (53)) , the 
reaction  is  unstable. 

For  convenience,  however,  the  rate  constant  can  be  linearized 
via  a Taylor  series  (following  Lee,  1981).  Rearranging  equation  (53) 
gives 

(tj-T*)  = X'  (k^)'^’^exp(-g/2t  J • (54) 


where 


X' 

X* 

c* 


(-AH) [De]°'^C*/hp 


since  a(j,j+l)  = a(j,j-l)  = Sp.  Then,  expanding  Che  exponential  in  a 
Taylor  series  about  T*  and  dropping  quadratic  and  higher  order 
terms  gives 

(t^-T*)  = X [ 1 + (t^-T*)/2(T*)^  ] (55) 


where 


X = X'  k(T*) 


or 


t = T*  + 


S 

(-AH)C*(De  k(T*))°’^  2(T*)^ 


(56) 


Instability  would  be  indicated  by  a negative  RHS  of  equation  (55). 
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Main  Fluid  Plug 

A fluid  element  as  shown  in  Figure  29-b  can  be  described  by 
Q.  dC 

^ -[(Sp  + (Sp 

and 


(57) 


pc  Q.  dT. 

^ ^ ^ a(j,j+l)[t.^^-T.] 


(58) 


+ hp  a(j,j-l) J 


where  z is  the  distance  into  the  half-cell,  is  the  key  component 
concentration  in  the  j-th  radial  plug,  is  the  flow  rate  through  the 
j-th  radial  plug,  p is  the  fluid  density,  and  is  the  fluid  heat 
capacity.  The  area  parameters  and  pellet  film  coefficients  were 
defined  in  the  heat  dispersion  chapter.  From  equation  (52) 


(J  s))  [De  l°-  = 

(J  s'p)^  ^ = Sp.  ,C.  [De  k(t.  .)  ]°*^ 


(59) 


j-1  ‘^j-l 

t 

where  Sp  is  the  catalyst  surface  area  available  for  reaction  at  one 
face  of  a given  solid  plug.  These  areas  were  defined  for  heat 
transfer  in  Chapter  III  so  that 


= a(j,j+l) 
= a(j  ,j-l) 


(60) 


The  solid  temperatures  are  determined  via  equation  (56) . The 
complexity  of  equations  (57)  and  (58)  requires  numerical  integration 
from  plug  inlet  to  plug  outlet. 

Center  Solid  Plug 

Figure  29-c  shows  that  the  center  solid  plug  can  be  treated  as 
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a single  pellet  surrounded  by  a fluid  of  concentration  Thus,  a 
symmetric  effectiveness  factor  (e. g. , Carberry , 1976)  can  be  applied 
to  give 

J = C2[De  k(t^)]°-^  (61) 


A steady-state  film  balance  leads  to 

hpCt^-T^)  = (-AH)  C2[De  k(t^)]°*^ 


(62) 


if  it  is  again  assumed  that  a(l,2)  = Sp^.  Linearizing  the  exponential 
about  T2  yields 


1 

hp 

_ _S_ 

;-AH)C2(De 

k(T2))°-^ 

2T^ 

2J 

(63) 


Again,  instability  would  be  indicated  by  a negative  RHS  of  equation 
(63). 

Center  Fluid  Plug 

The  description  of  the  center  fluid  plug  (Figure  29-d)  contains 
only  one  reaction  term: 

Ql  > 0 5 

^ = -SP2  Cl  [De  k(t2)]''*^  (64) 


and 

pC  Q dT 

^ ^ = hp  a(l,2)[t2-T^]  (65) 

t 

where,  again  it  is  assumed  that  Sp2=a(l,2)o  Both  equations  (64) 
and  (65)  must  be  integrated  numerically  with  t2  evaluated  at  each 
step  via  equation  (56). 
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WalX  Solid  Plu^ 

A solid  plug  adjacent  to  the  tube  wall  (Figure  29-e)  of  an 
adiabatic  reactor  can  be  treated  as  half  of  a symmetric  pellet 
(sxnce  there  is  no  temperature  gradient  at  the  wall).  In  this  case 
the  analysis  follows  that  for  the  center  solid  plug  to  give 


!12 _ 0.5  g 

For  a wall-cooled  reactor,  a stagnant  film  heat  transfer 
resistance  at  the  wall  must  be  included: 


hp  a(N,N-l)  [tjj-Tjj_^]  + h*  a(s,w)  [t^-Twall]  (67) 


Dividing  both  sides  by  [hp  a(N,N-l) ] and  using  equation  (60)  gives 
^^^-1^°*^  -('^^)]°’^=[t:^.-T^,_^]+a[t^-Twall]  (68) 

where 


cc  = h*  a(s,w)/hp  a(N,N-l) 

The  heat  dispersion  chapter  showed  that  h*  a(s,w)=0.1hp  a(N,N-l) 

gave  good  results  for  the  cases  studied  there.  Thus,  taking  a=0.1 

and  linearizing  the  exponential  of  equation  (68)  about  T gives 

N-1  ° 


t 


N 


(X"Y-1)T^_^-0,1  Twall  - X" 
X"Y  - 1.1 


(70) 


■ = g/[2  T^2^] 

" = k(Tj^_^)]°-5/hp 


where 
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Here,  instability  should  be  suspected  if  calculations  lead  to 

*'n'^*^'^N-1  tj^<Twallo  (If  Twall  is  low  enough,  cooling  may 

cause  t^to  be  lower  than 

Wall  Fluid  Plug 

A fluid  plug  adjacent  to  the  tube  wall  (Figure  29-f)  of  an 
adiabatic  reactor  is  analogous  to  the  center  fluid  plug.  Thus 


- ^(N,N-1)  C^[De  k(t^_^)] 


0.5 


(71) 


^ = hp  a(N,N-l)[t^^_^-T^^] 


(72) 


where  the  solid  temperature  is  obtained  via  equation  (56)  at  each 
numerical  integration  step. 

In  a wall-cooled  reactor,  equation  (72)  must  also  include  a 
wall  film  heat  transfer  resistance: 


5T  ■ ■’p 

- hw  TT  Dt[Tjj-Twall] 


(73) 


The  solid  temperature  is  again  obtained  via  equation  (56) . 
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Condensation  of  Equations  and  Solution  Technique 

The  solution  technique  here  is  analogous  to  the  procedure 

outlined  earlier  for  heat  dispersion.  Description  of  the  complete 

concentration  and  temperature  profiles  at  any  given  z within  an 

A-half-cell  requires  solid  plug  equations  (56)  (j=3,5, • . . ,N-1)  and 

(63),  fluid  plug  equations  (57)  and  (58)  (j=2 ,4, . . , ,N-2) , (71)  and 

(72)  for  adiabatic  reactors  or  (73)  for  wall-cooled  reactors.  (In 

this  section,  N=Nrad,  or  the  total  number  of  plugs  in  any  half-cell.) 

Solid  plug  equations  (56)  ( j=2 ,4 , . » . ,N-2) , and  (66)  for  adiabatic 

reactors  or  (70)  for  wall-cooled  reactors,  fluid  plug  equations  (57) 

and  (58)  (j=3,4, , . . ,N-1) , (64),  and  (65)  are  required  for  a B-half-cell. 

Since  both  temperature  and  concentration  vary  with  z,  each  fluid  plug 

equation  must  be  integrated  numerically  from  plug  inlet  to  outlet, 

with  solid  temperatures  calculated  at  each  step.  Only  then  can 

mixing  calculations  be  made.  The  cells  and  plugs  must  be  sized  and 

the  flows  subdivided  according  to  e,  , and  Dt/dp  as  outlined  in  the 

bed 

mass  dispersion  chapter.  The  heat  transfer  areas  and  film 
coefficients,  hp  and  hw,  must  be  determined  as  outlined  in  the  heat 
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dispersion  chapter.  Then,  given  all  necessary  kinetic  (rate)  data 
(e.g.,  rate  constant,  heat  of  reaction,  effective  pellet  diffusivity) , 
the  radial  profiles  can  be  obtained  via  the  procedure  below.  (The 
following  outlines  a wall-cooled  reactor;  for  an  adiabatic  reactor, 
substitute  equation  (66)  for  (70)  and  (72)  for  (73).) 

1.  set  all  inlet  temperatures  (solid  and  fluid)  to  Tin  and  all 
inlet,  concentrations  to  Gin; 

2.  within  the  A-half-cell,  numerically  integrate  equations 

(57)  and  (58)  (j=2,4, . . . ,N-2) , (71)  and  (73).  At  each 

integration  step,  obtain  new  solid  temperatures  via  equations 

(56)  ( j=3, 5 , . . . ,N-1)  and  (63).  The  outlet  fluid  temperatures 

(T„,  T, ,..,,T„)  and  concentrations  (C„ , C, , . . . , C„)  become 
2 4 N 2 4 ’ N 

elements  of  the  (N/2)-long  vectors  TA(out,n)  and  CA(out ,n) . 
respectively,  where  n is  the  current  cell  number; 

3.  calculate  B-half-cell  inlet  temperatures  and  concentrations 
from  the  previously-defined  mixing  matrix,  R via 

^(in,n)  = R TA(out,n) 

^(in,n)  = R CA(out ,n)  (74) 

where 

^ra(in,n)  = [T^  '^3'"'^N-l^n 
CB(in,n)  = [C^  ^3‘‘"^N-l^n 

4.  integrate  equations  (57)  and  (58)  ( j=3 , 5 , . . . ,N-1) , (64) 
and  (65)  from  B-half-cell  inlet  to  outlet,  calculating  new 
solid  temperatures  at  each  integration  step  from  equations 


116 


(56)  ( j=2 ,4 , . . . ,N-2)  and  (70).  The  outlet  fluid  temperatures 
(T^,  concentrations  (C^,  ^)  become 

the  elements  of  the  (N/2)-long  vectors  TB(out ,n)  and  CB(out,n) , 
respectively; 

5.  calculate  the  next  A-half-cell  inlet  temperatures  and  concen- 
trations from  the  previously-defined  mixing  matrix,  S via: 
TA(in,n+l)  = S TB(out,n) 


where 


CA(in,n+l)  = S CB(out,n) 


TA(in,n+l)  = [T  T ...  T ] 

— 24  N^n+1 


CA(ln.n+l)  . [C^  ... 


(75) 


6.  repeat  steps  2-5  until  the  desired  number  of  axial  cells  has 
been  traversed. 


Model  Parameters 

The  only  parameters  added  to  describe  this  combined  case  of 
heat  and  mass  dispersion  relate  directly  to  the  reaction  involved 
and  not  to  the  AFM  itself.  These  reaction-diffusion  parameters 
(De,  k,  r^,  (-AH))  must  be  determined  independently  as  described 
elsewhere  (e.g.,  Carberry,  1976;  Froment  and  Bischoff,  1979;  Lee,  1985; 
Smith,  1981).  Thus,  the  AFM  parameters  are  completely  defined  by 
considering  only  simple  heat  and  mass  dispersion  characteristics. 
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Example  Problems 

Since  this  section  must  compare  the  AFM  and  the  Fickian  analogy 
for  a reacting  system,  the  appropriate  Fickian  equations  are  first 
presented.  Then,  the  results  of  both  models  for  several  cases  are 
compared . 

The  Fickian  analogy  equations,  excluding  axial  dispersion, 
for  cases  involving  heterogeneous  or  catalytic  reaction  (e.g..  Car berry, 
197 6) , are: 


U 


int 


9c 

9z 


Dr 


r 2 1 

> 

ri-e  1 

9c 

bed 

[dr-  ^ 

9r 

^bed 

J 

(76) 


U 

int 


9T 

f 2 

3 T 

+ 1 9tI  _ 

(-AH) 

1-e,  , 

bed 

9z 

2 

^bed 

with 


z=0:  (all  r)  c=Cin,  T=Tin 

z>0:  (r>0)  = 0 

oT  9r 


where 


(r=Rtube)  -^  = 0 
9r 

9T 

- Ar  — = 0 , adiabatic 

dr 

hw(T-  Twall) , wall-cooled 
0.5 


(77) 

''P  '^P/’P' 'Solid-  ■'fluid' 

(78) 

Here,  all  terms  are  in  a consistent  set  of  dimensions  (e.g.,  CGS,  MKS, 
etc.)  as  non-dimens ionalizing  these  equations  complicates  their 
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numerical  solution.  The  implicit  Crank-Nicholson  method  (e.g., 
Hornbeck,  1975;  Lee,  1985)  was  used  to  solve  the  above  equations. 

Figures  30  - 36  compare  the  AFM  to  Fickian  analogy  results 
for  the  system  defined  in  Table  10.  Bulk-averaged  values  for  the 
Fickian  model  were  determined  by 


P =2 
bulk  ^ 


tube  N N 2 

r P(r)dr/(R^^j^^) 


(79) 


and  for  the  AFM  by 


P,  = E Q.P./Qtot 
bulk  .11 
1 


(80) 


where  P is  the  property  (concentration  or  temperature)  and  j corre- 
sponds to  fluid  plugs  only  (j=2,  4,.  . . ,N  for  A-half-cells  and 
j=l,3,.  . .,N-1  for  B-half-cells) . 

Figures  30  and  31  indicate  that  the  AFM  predicts  lower  conver- 
sion and  bluk  fluid  temperature  than  the  Fickian  analogy  for  an 
adiabatic  reactor  with  a 0.5  second  residence  time.  For  a 
wall-cooled  reactor  with  a 1.0  second  residence  time  (Figures  32 
and  33) , the  AFM  conversion  trend  initially  follows  the  Fickian 
analogy  but  then  levels  off  at  a lov/er  value.  Note  that  the  re- 
action continues  although  the  bulk  fluid  temperature  remains  quite 
low.  For  these  first  two  cases  neither  model  predicts  steep  radial 
temperature  gradients.  The  Fickian  analogy  indicates  a flat  profile 
with  about  a 10  K drop  at  the  wall.  The  AFM  gives  roughly  the  same 
overall  temperature  drop  but  indicates  more  of  a profile  within  the 


bed  itself. 
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Table  10 

Example  Reaction  Case  Parameters 
2 

= kC  mol/cm  cat-s 
k = 4.58x10®  exp  (-12000/T) s~^ 

(-AH)=  240  kcal/mol 
p = 9.47x10  ^g/cm® 

Cp=  0.25cal/g-K 
Q = 818  CTO?/ s 
De  = 0.001  cm^/s 
dp  = 0.6cm 
Dt  = 3 . 6cm 

^bed= 

R6p  = 234 

Pr  = 0.75 

T.  = 600K 
in 

(|)in  = 3.07 

Flckian  parameters 

X = .00152  cal/s-cm-K 

Dr  = 3.5cm^/s 

(from  Smith,  1981) 

hw  = .0025  cal/s-cm^-K 

(from  Yagi  and  Wakao,  1959) 

2 

hp  = ,0026  cal/s-cm  -K 

(from  Schlunder,  1978) 

V = 200.9cm/s  (interstitial) 
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Table  10-continued 

AFM  parameters 

hw  = .002  cal/s-cm^-K 

hp  = .002  cal/s-cm^-K 
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Figure  30:  Conversion  Profiles  for  Adiabatic  Reactor,  C.  =2x10 

T.  =600 °K 
in 
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z (cm) 


Figure  31:  Bulk  Temperature  Profiles  for  Adiabatic  Reactor, 

C.  =2x10“^,  T.  =600°K 
in  in 


Conversion 
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z (cm) 


Figure  32:  Conversion  Profiles  for  Wall-cooled  Reactor, 

C.  =2xl0”^,  T.  =Twall=600°K 
in  in 


Bulk  Temperature  (°K) 
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Figure  33:  Bulk  Temgerature  Profiles  for  Wall-cooled  Reactor, 

C.  =2x10  , T.  =Twall=600°K 

in  ’ in 
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Figure  34:  Conversion  Profiles  for  Wall-cooled  Reactor,  Severe 

Inlet  Conditions,  C,  =3x10  T.  =Twall=600°K, 

in  ’in  ’ 

(at  4cm,  Bulk  Temperatures:  AFM=639°K,  Fickain=646°K) 
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Figure  35:  Centerline  Catalyst  Temperature  Profiles  for  Wall-cooled 

Reactor  with  Severe  Inlet  Conditions 
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z (cm) 


Figure  36:  Radial  Temperature  Profiles  for  Wall-cooled  Reactor, 

with  Severe  Inlet  Conditions  (at  z=4.5cm  for  AFM, 
at  z=6cm  for  Fickain  Analogy) 
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More  severe  reaction  conditions  magnify  these  differences  (Figures 
34-36).  In  this  case,  the  AFM  predicts  instability  after  only  4.5cm 
(0.023  sec)  into  the  bed  whereas  the  Fickian  analogy  shows  the  reaction 
to  be  stable  until  6cm  (0.03  sec)  even  at  the  low  conversions  pre- 
dicted by  both  models.  Althou^  the  bulk  fluid  temperatures  at  4cm 
differ  by  only  7 K (639  K for  the  AFM  vs.  646  K for  the  Fickian), 
the  AFM  indicates  a much  higher  centerline  catalyst  temperature  than 
the  Fickian  analogy  (Figure  35).  The  AFM  also  indicates  a steeper 
radial  temperature  profile  and  a greater  difference  between  fluid  and 
catalyst  temperatures  (Figure  36). 

The  AFM's  distribution  of  flows  can  account  for  the  steeper  radial 
temperature  profile.  The  slower  flow  rates  near  the  centerline 
(Table  11)  prolongs  the  residence  time  there  thus  allowing  for  more 
extent  of  reaction  and  larger  temperature  rise.  Numerically,  equations 
(57)  and  (58)  support  this  argument  since  smaller  Qj  implies  larger 
axial  gradients.  Smaller  Q j , however,  also  implies  minimal  effect 
on  bulk  values  (equation  (80))  so  that  instability  can  be  predicted 
even  at  seemingly  low  Tbulk.  The  splitting/merging  at  each  half- 
cell exit  eventually  propogates  this  higher  temperature  radially  outward. 

The  AFM  is  also  more  sensitive  to  wall  conditions  than  the  Fickian 
analogy.  Comparison  of  Figure  31  (residence  time  of  0.5  sec)  to  the 
first  0.5  sec  residnece  time  of  Figure  33  sho  that,  for  the  less 
severe  reaction  conditions,  changing  from  a wall-cooled  (Twall=600  K) 
to  an  adiabatic  reactor  causes  a negligible  change  in  the  Fickian  pre- 
dictions but  a dramatic  change  in  the  AFM  results.  The  AFM  maximum- 
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near-wall  flow  distribution  (Table  11)  accounts  for  the  model's 
sensitivity  to  wall  conditions.  Any  change  in  the  outer  plugs  will 
dominate  bulk  values  (equation  (80)  and  will  rapidly  propogate 
inward  due  to  the  mixing  at  each  half- cell  exit. 

Figure  37  shows  the  effect  of  changing  Dt/dp  to  3 (Dt=3,6cm, 

dp=1.2cm,  hp=0. 0014 cal /s-cm^-K  for  AFM,  0.0018  cal/s-cm^-K  for 

Fickian)  for  the  severe  reactions  of  Figures  34-36.  Because  the 

increased  pellet  size  slows  the  overall  reaction  rate,  both  models' 

predicted  instabilities  move  farther  into  the  reactor.  However,  in 

this  case,  the  Fickian  analogy  is  more  conservative,  i,e.,  it  predicts 

the  instability  sooner.  The  AFM  flow  profiles  (Figure  38)  can 

explain  this  shift.  Although  the  low  centerline  flow  (Q^  < .01  Qtot) 

should  induce  large  axial  concentration  and  temperature  gradients 

within  that  plug,  its  effect  is  offset  by  the  influence  of  the  large 

wall  plug  flow  upon  mixing  at  the  half-cell  exit.  (The  AFM  parameters 

in  Figure  38  required  e,  =0.23  (equation  (13))  to  give  e,  =0.40.) 

b bed 

Figures  39  and  40  compare  the  AFM  and  Fickian  analogy  for  an 
example  system  which  yields  a Fickian-predicted  hot-spot,  i.e.,  maximum 
in  the  temperature  profile.  The  system  parameters  are  as  given  in 
Table  10,  with  a lower  heat  of  reaction  and  higher  wall  coefficients  as 
noted  on  the  figures.  The  AFM  predicts  essentially  no  reaction  after 
about  10cm  into  the  vessel,  whereas  the  Fickian  analogy  shows  95% 
conversion  at  100cm.  The  AFM's  sensitivity  to  wall  conditions  accounts 


for  the  contrast. 
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Table  11 


AFM  Flow  Distribution 


for  Dt/dp=6, 

"bed  = 

Half-cell  Plug 

Q/Qtot 

u/u’ 

A 2 

.044 

1.90 

4 

.159 

2.28 

6 

.277 

2.38 

8 

.520 

2.67 

B 1 

.012 

.532 

3 

.093 

1.33 

5 

.197 

1.69 

7 

.697 

3.57 
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Figure  37:  Conversion  Profiles  for  Wall-cooled  Reactor, 

Dt/dp=3.0,  e,  ,=  0.40,  T.  =Twall=600°K,  C.  =2x10 
bed  in  in 
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NOTE:  Given  Q =Q  /Qtot  and  u.=u  /u' 

J J a 


Figure  38:  AFM  Parameters  for  Dt/dp=3.0,  e 

bed 


=0,40 


Conversion 


133 


Figure  39:  Conversion  Profiles  for  Wall-cooled  Reactor, 

Dt/dp=6.0,  ^=0.40,  T.  =800“K,  Twall=400“K, 

0^60  xn 

C^^=2xl0  , (-AH)=24kcal/mol,  hw  = 100(hw  of 

Table  10) 
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Figure  40:  Temperature  Profiles  for  Wall-cooled  Reactor, 

Dt/dp=6.0,  j=0.40,  T.  =800‘’K,  Twall=400°K, 

’ bed  ’ in  ’ 

C^^=2xl0  , (-AH) =24kcal/mol , hw=100 (hw  of 

Table  10) 
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Summary  of  AFM  for  Reaction 

Teh  Alternating  Flow  model  views  reaction  in  packed  beds  as  a 
combination  of  the  simple  mass  and  heat  dispersion  mechanisms  with 
reaction  in  the  packing  material,  or  pellets.  Mass  disperses  axially 
due  to  bulk  flow  and  radially  because  of  reaction  within  the  packing 
and  because  of  mixing  at  each  half-cell  outlet.  Heat  disperses 
axially  with  the  bulk  flow,  radially  through  pellet  film  resistances 
(to  cool  the  heat  of  reaction)  and  from  mxing  at  each  half-cell 
outlet,  and  out  at  the  wall  through  a wall  film  resistance.  The  only 
parameters  needed  for  the  combined,  but  not  individual,  dispersion 
case  relate  directly  to  reaction  within  the  catalyst  pellets  and  are 
independent  of  the  AFM  itself. 

For  the  examples  presented  here,  the  AFM  predictions  differed 
significantly  from  the  Fickian  analogy.  The  AFM  showed  more  sensitivity 
to  wall  conditions  than  the  Fickian  analogy,  probably  because  of 
the  AFM' s maximum-near-wall  flow  distribution.  The  difference  in 
the  models'  predictions  fo  instabilities  can  also  be  explained  in 


terms  of  flow  patterns 


CHAPTER  V 
CONCLUSIONS 

The  Alternating  Flow  Model  is  a viable  alternative  to  the 
traditional  Fickian  analogy  approach  for  modeling  dispersion  in 
packed  beds.  Not  only  does  the  AFM  require  fewer  correlated  parameters 
than  the  Fickian  analogy,  but  it  also  meets  all  the  dispersion  model 
acceptability  set  forth  in  the  Introduction.  The  AFM  can  also  predict, 
solely  from  system  geometry,  the  experimentally  observed  velocity  pro- 
files for  packed  beds. 

The  AFM  equalled  or  surpassed  the  Fickian  analogy  in  following 
the  experimental  data  of  the  simple  mass  dispersion  cases  examined 
in  Chapter  II.  For  simple  mass  dispersion,  the  AFM  is  totally  pre- 
dictive: all  model  parameters  are  determined  a priori  from  bed  voidage, 

^bed’  relative  size  of  tube  to  pellet,  Dt/dp. 

For  most  of  the  heat  dispersion  cases  studied  in  Chapter  III, 
the  AFM  followed  experimental  data  at  least  as  closely  as  the  Fickian 
analogy.  For  simple  heat  dispersion,  the  AFM  requires  back-fitting 
one  parameter,  the  wall  film  coefficient  (hw) , to  each  new  system. 

The  complexity  of  turbulent  heat  convection  explains  this  need  for  back- 
fitting  hw.  A friction  factor  analogy  sheds  light  on  the  observed 
hw  vs.  G relationship  (equation  (45))  and  can  even  predict  the  ex- 
ponent, m,  for  smooth  tubes.  The  pellet  film  coefficient  correlation 
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(equation  (50))  can  be  applied  to  either  spherical  or  cylindrical 
pellets  without  loss  of  generality.  The  flow  rate  dependence  was  de- 
veloped from  single  submerged  object  considerations. 

As  a descriptor  of  reaction  in  packed  beds,  the  AFM  exhibits  high 
sensitivity  to  reactor  wall  conditions  and  may  predict  instability 
(even  at  seemingly  low  bulk  fluid  temperatures)  where  the  Fickian 
analogy  does  not.  These  differences  can  be  explained  in  terms  of  the 
AFM’s  radial  flow  distribution.  Thus,  the  AFM's  ability  to  correctly 
predict  packed  bed  velocity  profiles  suggests  that  the  AFM  may  more 
closely  follow  reaction  data.  Further,  the  AFM's  ability  to  predict 
hot  spots  should  also  be  examined. 

The  Fickian  analogy  with  axial  dispersion  predicts  back-mixing 
where  none  is  observed  experimentally,  but  the  AFM  cannot  predict  the 
diffusion-like  behavior  expected  in  the  limit  of  zero  velocity. 

Thus,  neither  model  can  adequately  cover  all  possible  cases.  However, 
the  AFM  should  better  describe  cases  in  which  ordered  flow  can  be 
expected  (e.g.,  low  Dt/dp)  and  has  the  added  advantage  of  a priori  de- 
termination of  all  mass  dispersion  parameters. 

The  merits  of  the  AFM  discussed  here  warrant  the  further  studies 


outlined  in  Appendix  J. 


APPENDIX  A 

HYDRAULIC  RESISTANCES 


Empty  Tubes 

In  general,  the  pressure  drop  through  am  empty  atube  can  be 
expressed  as 


AP=f 


Uhj 

A. 

/2g, 


(A-1) 


where  f is  the  friction  factor,  L is  the  tube  length,  Rh  is  the 
hydraulic  radius  (Rh=4  cross-sectional  area/wetted  perimeter) , Q 
is  the  volumetric  flow  rate,  and  A is  the  cross-sectional  area. 
Equation  (A-1)  can  be  rearranged  to  give 


Q=a(A^Rh/f)°-^(AP)°’^ 


(A-2) 


where  a is  constant.  If  one  makes  an  analogy  to  Ohm's  Law  then 
(AP)^'^  becomes  the  hydraulic  "voltage,"  a(A^Rh/f)^'^  the  inverse 
of  hydraulic  resistance,  H and  Q the  current  flow.  The  total  flow 
through  a network  of  resistances  will  then  subdivide  according  to 
these  hydraulic  resistances  (Figure  41)  whose  form  depends  on 
pipe  shape  (because  of  Rh)  and  on  flow  regime  (because  of  f) . 
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■A/WV 


-^Q 


N 


-AV^ 


■=N-1 


AAW 


AWV 


AP 


(1/H.) 

f(l/H.) 
j=l  ^ 


Figure  41:  Flow  Subdivision  via  Hydraulic  Resistances 
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For  turbulent  flow,  f is  constant  and  the  hydraulic  resistance 
is  given  by  Equation  (A-4a) . But,  in  the  transition  of  laminar 
regime,  f is  proportional  to  1/Re  or  Av/Q  Rh  so  that  Equation  (A-2) 
becomes 

2 2 2 

Q = b A 2Rh(AP)(Re) 


or 

Q = b ARh^(AP) 


(A-3) 


where  b is  constant.  The  corresponding  hydraulic  resistance  is  given 
by  Equation  (A-4b) . 


A(Rh)^’^  turbulent 

(1/H)  = 

2 

A Rh  laminar 

For  tubes  of  circular  cross-section,  Rh=diameter; 
Rh=2(outer  radius  - inner  radius) . 


(A-4a) 

(A-4b) 

for  empty  annuli, 


Packed  Beds 

The  corresponding  pressure  drop  relationship  for  packed  beds  in- 
cludes some  function  of  bed  voidage.  While  the  literature  provides 
several  forms  of  this  function  (e.g Froment  and  Bischoff,  1979; 
Coulson,  1949;  Ergun,  1952;  Ergun  and  Orning;  1949;  Lapin,  1962; 

Leva,  1947a, b)  the  one  developed  by  Leva  (1947b)  will  be  used 
here  for  simplicity: 

2 3 

AP=  a(l-e)U  /e  (A-5) 

s 

where  a is  constant  and  is  the  superficial  velocity  based  on 
empty  tube  cross-section.  This  can  be  converted  to  actual  intersti- 
tial velocity,  U.  based  only  on  the  void  area,  Av,  as  U^=  ^bed’ 
where  U^=  Q/Av.  Thus,  (A-5)  becomes 


141 


AP  = b(l-e) 


2 

/e 


VJ 

so  that  the  hydraulic  resistance  for  a packed  tube  is 


(A-6) 


1/H=  (A^e/(l-e))°*^  (A-7) 

and  will  be  referred  to  as  the  "Ergun  type"  resistance.  Note  that 
(A-7)  implies  that  the  resistance  to  flow  decreases  as  voidage  in- 
creases, thus  predicting  the  observed  channelling  effect  of  high  flow 
at  maximum  voidage  near  the  wall. 


APPENDIX  B 

REFERENCE  LIST  FOR  DISPERSION  COEFFICIENT 
STUDIES 

The  following  is  a list  of  some  works  regarding  axial  and  radial 
dispersion  from  the  Fickian  analogy  point  of  view,  as  mentioned  in 
the  main  text.  No  claim  of  completeness  is  made  here.  For  complete 
bibliographic  information,  see  the  Bibliography. 

Carberry,  (1958),  Chang  (1982,  1983),  Chung  and  Wen  (1968), 
Dorweiler  and  Fahien  (1959) , Evans  and  Kenney  (1966) , Fahien  and 
Smith  (1955),  Gunn  (1969),  Gunn  and  England  (1971),  Gunn  and  Pryce 
(1969),  Klinkenberg  et  al.  (1953),  Klinkenberg  and  Sjeniter  (1956), 
Kramers  and  Alberda  (1953),  Liles  and  Geankoplis  (1960),  McHenry  and 
Wilhelm  (1957),  Mears  (1971),  Oliveros  and  Smith  (1982),  Plautz  and 
Johnstone  (1955),  Roemer  et  al.  (1962),  Strang  and  Geankoplis 
(1958),  Suzuki  and  Smith  (1970),  Wolff  et  al.  (1979),  Awasthi  and 
Vasudeva  (1983),  Cairns  and  Prausnitz  (1960),  Carberry  and  Bretton 
(1958),  Danckwerts  (1953),  Ebach  and  White  (1958),  Edwards  and 
Richardson  (1968) , Grabmuller  and  Schadlich  (1983) , Hibilaro  (1979) , 
Hsiang  and  Haynes  (1977),  Jacques  and  Vermeulen  (1957),  Liles 
(1959),  Miller  and  King  (1966),  Turner  (1971,  1983). 
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APPENDIX  C 

AXIAL  VOIDAGE  VARIATION  DETERMINATION 


If  the  packed  bed  is  considered  to  be  a perfect  cylinder  filled 
with  uniformly  sized  perfect  spheres,  and  the  position  (coordinates) 
of  each  sphere  within  the  cylinder  is  known  then  void  fractions  can  be 
theoretically  calculated.  If  such  information  is  unavailable,  the 
void  fraction  must  be  measured  experimentally.  Each  technique  is 
discussed  below. 


Experimental  Measurement 

Consider  a cylinder  marked  off  in  equal  increments  along  its 
height.  Let  Vol  be  the  volume  of  liquid  required  to  raise  the  level 
from  one  height,  zl,  to  the  next,  z2,  when  the  cylinder  is  empty 
and  V be  the  amount  of  liquid  required  to  raise  the  level  from  zl  to 
z2  when  the  cylinder  is  packed  with  pellets.  Then,  v is  the  void 
volume  between  zl  and  z2  and  v/Vol  is  the  average  void  fraction  between 
zl  and  z2,  as  indicated  by  the  dashed  step-wise  plot  in  Figure  4. 

Experiments  leading  to  Figure  4 were  carried  out  with  glass 
spheres  (dp=1.56cm)  in  a 1000ml  beaker  (Dt=10.3cm)  whose  25ml  in- 
crements were  0.3cm  apart.  This  yields  Dt/dp=6.6  with  axial  markings 
every  dp/ 5 units.  Since  axial  voidage  frequencies  on  the  order  of 
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less  than  one  dp  are  desired,  this  axial  increment  must  be  small  enough 
to  achieve  the  desired  sensitivity.  Pellet  diameter,  dp,  was  determined 
by  measuring  the  volume  of  water  displaced  by  a set  number  of  spheres 
and  then  calculating  dp  via  the  formula  for  spherical  volume.  The 
tube  diameter,  Dt,  was  calculated  from  the  formula  for  cylindrical 
volume  (volume=25ml,  length=  0.3cm).  The  beaker  was  packed  in  several 
steps  of  pouring  in  a few  spheres  and  shaking  the  beaker  to  attain 
the  densest  packing  arrangement.  Incremental  void  volumes  were 
measured  by  introducing  water  into  the  packed  beaker  from  a buret. 

Theoretical  Calculation 

Consider  a cylindrical  coordinate  system  with  its  origin  at  the 
center  of  the  lowest  plane  of  a vertical  cylinder,  or  tube,  which  is 
packed  with  uniformly  sized  spheres,  or  pellets.  The  tube  is  bounded 
within  this  coordinate  system  by 

0 < 2 < height  of  cylinder 

0 < r < Dt/2  (C-1) 

0 < 0 < 2tt 

The  position  of  each  sphere  within  the  tube  is  then  defined  by 

the  location  of  its  center  (r  , 9 . , z ) and  each  sphere  occupies  the 

i 1 i 

space  radiating  outward  from  its  center  (dp/2)  in  all  directions.  The 
voidage  at  any  given  axial  position,  z,  can  be  determined  by  examining 
the  cross-section  obtained  by  cutting  the  system  with  a horizontal 
plane  at  that  z.  This  would  yield  a circle  of  diameter  Dt  which 
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surrounds  several  smaller  circles  with  diameters  ranging  from  0+  to 
dp/2  as  shown  in  Figure  A2.  The  unshaded  area  within  the  large  cir- 
cle represents  the  void  area,  Av.  Mathematically,  the  void  volume 
is  given  by  (Av)dz  and  the  average  void  volume  between  two  axial 
positions  zl  and  z2  is  found  by  integrating  (Av)dz  from  zl  to  z2. 

Care  must  be  taken  at  each  axial  position  to  include  all  spheres 
in  the  system  which  may  be  cut  by  such  a plane.  This  is  accomplished 
by  including  all  spheres  whose  centers  are  not  more  than  (dp/2) 
units  away  from  the  plane  of  interest,  i.e.,  Az=iz.-  z|<  dp/2.  Figure 
45  illustrates  this  point.  The  area  cut  out  of  each  eligible  sphere 
by  the  plane  in  question  is  given  by 


Ai=  rb. 


(C-2) 


where 

2 2,  2 

b^  = dp  /4-  (Az)  (C-3) 

The  void  fraction  at  this  point  is  then 

Zv/Atube=  1-4EA^/Dt^  (C-4) 

As  an  example,  consider  the  case  of  Dt/dp=3.  The  calculated 
void  fractions  for  Dt/dp  were  given  in  Figure  5.  Earlier,  this 
case  was  described  as  having  several  layers  each  containing  seven 
spheres  (one  at  the  center  and  six  tangent  to  the  tube  wall) . These 
layers  were  said  to  build  up  with  the  center  spheres  stacked  and 
successive  outer  rings  rotated  30  degrees.  Within  our  system,  this 
translates  to  the  coordinates  shown  in  Table  12.  Figure  44  corre- 
sponds to  the  horizontal  plane  z=dp/2  while  Figure  45  corresponds 
to  the  plane  at  z=1.5dp. 
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Figure  42:  Horizontal  Plane  through  Packed  Tube 


* pellet  center 

* include  only  those  pellets 
whose  centers  fall  within 
shaded  region 

Figure  43  : Inclusion  of  Spheres  for  Axial  Voidage 

Calculations 
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Figure  44:  Horizontal  Plane  at  z=dp/2  for  Dt/dp=3 

/ 


=0. 48dp 
^dp/2 


Figure  45  : Horizontal  Plane  at  z=1.5dp  for  Dt/dp=3 


APPENDIX  D 

REFERENCE  LIST  FOR  VOID  FRACTION  STUDIES 
Following  is  a list  of  void  fraction  and  pellet  packing  study 
references  as  mentioned  in  the  main  text. 

Benenati  and  Brosilow  (1962),  Bennett  (1979),  Cohen  and  Metzner 
(1981),  Dodds  (1980),  Fedors  (1979),  Galloway  et  al.  (1957),  Hirai 
(1954),  Haughey  and  Beveridge  (1966),  Leva  and  Grummer  (1947b), 
LeGoff  et  al.  (1985),  Ouichiyama  and  Tanaka  (1981,  1984),  Pillai 
(1977),  Ridgway  and  Tarbuck  (1968),  Roblee  et  al.  (1958),  Sloane 
(1984),  Standish  and  McGregor  (1978),  Stanek  and  Eckert  (1979), 
Wieckowski  and  Strek  (1966). 
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APPENDIX  E 

TRANSIENT  SIMULATION  TECHNIQUE 

The  AFM  prediction  radial  concentration  profiles  at  any  given  time 
and  axial  position  can  be  represented  in  the  Laplace  domain  in  equation 
(12)  given  in  the  main  text.  The  motivation  for  such  a matrix  formu- 
lation was  conciseness.  However,  the  AFM  transient  cases  were 
actually  simulated  in  the  time  domain  plug  by  plug  and  cell  by  cell 
to  properly  account  for  the  radial  and  axial  distribution  of  delay 
times.  In  concept,  the  simulation  technique  is  straightforward,  but 
it  does  require  some  careful  "bookkeeping"  at  the  actual  computer 
programming  stage. 

The  general  procedure  below  outlines  the  real-time  simulation  of 
an  "F-curve"  experiment.  All  time  units  are  assumed  to  be  non-dimen- 
sionalized  in  terms  of  bed  hold-ups.  The  steps  are  as  follows: 

1.  Determine  size  and  distribution  of  radial  plugs,  number  of 
axial  cells,  flow  distribution,  and  split/merge  matrices 
(R  and  S,  equation  (12))  as  for  the  steady-state  case. 

2.  After  choosing  At,  subdivide  each  plug  into  elements  as  dis- 
cussed below. 

3.  Set  time=0. 

4.  Initialize  concentration  profile  by  setting  all  elements 
inside  the  bed  at  C=0. 
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5.  Let  time  = time  + At. 

6.  Set  the  "bottom"  (or  inlet)  elements  of  the  plugs  in  the  first 
half -cell  at  C=l,  (Any  convenient  number  may  be  used  since 
the  calculation  of  F(t)  is  independent  of  this  value). 

7.  Determine  concentration  is  outlet  elements  of  all  plugs  as 
discussed  below. 

8.  Determine  concentration  to  be  deposited  in  inlet  elements 

of  all  plugs  by  the  split/merge  calculations,  i.e. 

B in  = RA  . or  A = SB 
— =-out  —in  =-out 


9.  Determine  value  of  F(time)  as  lCj(Qj/Qt)  over  all  j in  the 

outlet  elements  of  the  void  plugs  in  the  last  half -cell 

(j=  2, 4, 6,... for  A-half-cell  or  j=l,3,5, . . .for  B-half-cell) . 

10.  Repeat  steps  5 through  8 until  desired  time  has  elapsed. 

Consider  as  an  example  the  case  Dt/dp=8,  z/dp=32  and  e,  =0.39 

bed 

(Jacques  and  Vermeulen,  1957)  which  gives  Nz=32/1 . 632=19 . 6 or  20  (A/B) 
cells  with  each  half-cell  containing  5 void-full  regions  radially 
distributed  as  shown  in  Figure  46  (If  (z/dp)/1.632  were,  say,  19.2, 
the  AFM  would  require  39  half-cells.  That  is,  round  Nz  up  to  the 
nearest  half.)  Table  13  gives  the  corresponding  delay  times  which 
are  used  to  subdivide  each  plug  into  M elements  where 


M.=  d . /At 
J J 


(E-1) 


151 


/ 


QinJ 


A-half-cell  B-half-cell 

wall  (’r=1.0') 


centerline  (r=0) 


. 816dp 


, 816dp 


•One  repeating  A/B  cell 


NOTE:  given  values  are  scaled  by  overall  amounts 

Qi=Q/Qt.  u.=u/u-,  r=r/R^^j^^ 


Figure  46:  Radius,  Flow,  and  Velocity  Distribution, 

Dt/dp=8.0,  overall  bed  voidage  = 0.39 
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for  j=l,2,3, . . . jNrad.  (The  time  interval.  At,  is  analogous  to  the 
step-size  one  would  use  with  the  Euler  or  Runge-Kutta  integration 
techniques  and  should  be  small  enough  to  produce  significantly  different 
M j ’ s . ) 

Since  each  plug  consists  of  a certain  number  of  time  elements, 
the  outlet  concentration  from  the  j-th  plug  "now"  is  what  its  inlet 
concentration  was  Mj  time  steps  ago.  In  terms  of  real-time  simulation, 
this  translates  into  shifting  elements  within  an  Mj-long  array  as 
illustrated  in  Figure  47.  At  each  time  step,  then,  the  "top" 
element  is  removed  as  the  current  outlet  concentration  (into  all 

other  elements  are  moved  up  one  slot,  and  the  current  inlet  concentra- 
tion is  put  into  the  "bottom"  element  (from  . This  shifting 
operation  must  be  carried  out  at  each  time  step  for  each  plug.  Note 
that  if  the  inlet  concentration  to  any  given  plug  remains  constant 
(as  for  the  first  half -cell)  then  all  elements  of  the  array  will  be 
the  same  after  Mj  time  steps. 

For  the  example  case  stated  above,  there  are  (20)  (10) =200 
arrays  (one  per  plug)  varying  in  length  from  2 to  11  elements  if 
At=0.01.  One  of  the  20  repeating  (A/B)  cells  is  shown  in  Figure  48. 
Such  a large  time  step  was  used  for  illustration  purposes  only.  The 
actual  value  used  to  simulate  this  case  was  At=  0.00125. 
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Figure  47  : Shifting  Procedure  for  Simulation 

of  Delay  Times  (Real-time) 
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A-half-cell  B-half-cell 


NOTES:  (a)  Radial  divisions  not  to  scale 

(b)  Each  vertical  division  corresponds 
to  one  time  step  (in  void  plugs) 


Figure  4g:  Time-step  Subdivision  of  Plugs  , Dt/dp=8.0, 

overall  bed  voidage  = 0.39 
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TABLE  13 

Delay  Times  for  Dt/dp=8,  z/dp=32,  0.39 


A- half -cell 
plug  delay 

B-half-cell 
plug  delay 

2 . 0321 

4 .0270 

6 .0259 

8 .0254 

10  .0234 

1 .1132 
3 .0457 
5 .0334 
7 .0320 
9 .0169 

Delay  times  calculated  from  equation  (17) 
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For  ease  of  programming,  a single  three-dimensional  array 
C(I,J,K)  was  used  to  hold  concentration  values  for  all  plugs,  the  "I" 
subscript  defines  radial  plug  number,  "J"  the  axial  cell  number,  and 
"K"  the  time  step  length,  Mj . This  array  was  dimensioned  so  that 
K was  at  least  as  large  as  the  maximum  M j . Another  array,  NSUB(I) 

(I  same  as  above),  stored  the  Mj's  so  that  inlet  concentration  values 
were  put  into  C(I,J,NSUB(I))  and  shifting  for  each  plug  defined  by 
(I,J)  occurred  only  NSUB(I)  times  at  each  real-time  interval.  Thus, 
some  elements  of  the  C(I,J,K)  array  were  unused,  but  efficient  storage 
usage  was  overridden  by  ease  in  programming. 


APPENDIX  F 

COMPARISON  OF  AFM  FLOW  PROFILES  BASED  ON 
EMPTY  ANNULUS  AND  ERGUN-TYPE  HYDRAULIC  RESISTANCES 

The  basic  premise  of  the  Alternating  Flow  Model  (AFM)  is  that 
the  bulk  fluid  passes  through  the  hydraulic  resistances  presented 
by  a number  of  (A/B)  cells  each  consisting  of  a set  pattern  of  void- 
full  annular  regions  (Figure  2,  main  text).  The  empty  annulus  hydrau- 
lic resistances  (Appendix  A)  are  then  used  to  determine  the  radial 
profile.  But,  Ergun  type  resistances  also  indicate  an  increase  in 
flow  with  porosity.  Hence,  velocity  and  flow  profiles  predicted  by 
using  both  types  of  hydraulic  resistances  should  be  compared. 

Consider  the  case  of  Dt/dp=8,  0.39  (Jacques  and  Vermeulen, 

1957)  as  discussed  in  Appendix  E.  The  void  annuli  in  half -cell  A are 
defined  by  the  radii  listed  in  Table  14.  Equation  (A-7)  for  the 
Ergun  type  resistance  requires  a void  cross-sectional  area,  Av,  and 
average  void  fraction,  e,  for  each  plug.  Av  is  calculated  directly 
from  the  plug  radii  and  e is  taken  as  the  average  value  over  the  evenly 
spaced  radii  as  defined  by  equation  (15),  main  text;  Table  F.l  also 
shows  Av  and  e for  each  plug.  Table  15  gives  the  corresponding 
velocities  calculated  from  empty  annulus  and  Ergun  type  hydraulic 
resistances.  The  only  noticeable  difference  is  in  the  plug  2 velocities. 
However,  because  this  plug  represents  such  a small  fraction  of  the  total 
throughput,  this  difference  would  not  significantly  affect  the  F-curve 
simulation. 
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TABLE  14 


•Plug  Size 

Parameters 

for  Dt/dp 

=8, 

^bed 

plug 

r(in) 

r (out) 

Av 

^be.d 

2 

.158 

.200 

.015 

.377 

4 

.340 

.400 

.044 

.369 

6 

.535 

.600 

.074 

.369 

8 

.733 

.800 

.103 

.369 

10 

.891 

1.0 

.153 

.425 

TABLE  15 

Flow  and  Velocity  Profiles  by  Two  Types  of  Resistances 


Empty 

annulus 

Ergun 

type 

2lua 

Qi/Qt 

u/u’ 

Qi/Qt 

u/u’ 

2 

.0301 

.778 

.038 

.969 

4 

.106 

.928 

.109 

.954 

6 

.183 

.966 

.180 

.952 

8 

.261 

.984 

.252 

.952 

10 

.421 

1.07 

.421  1 

.07 

z/dp=32==>Nz=20 


APPENDIX  G 

FICKIAN  HEAT  DISPERSION  PARAMETER  REFERENCES 
The  studies  listed  below  give  values  and/or  correlations  for 
Fickian  heat  dispersion  parameters  in  terms  of  other  system  vari- 
ables. No  claim  regarding  completeness  of  a literature  survey  is 
made  here.  For  complete  bibliographic  information,  see  the  Biblio- 
graphy. 

Baumeister  and  Bennett  (1958),  Botterill  and  Denolye  (1978), 
Bunnell  et  al.  (1949),  Calderbank  and  Pogorski  (1957),  Clement  and 
Jorgensen  (1983),  Coberly  and  Marshall  (1951),  Colburn  (1931), 
Crider  and  Foss  (1965) , Duarte  et  al.  (1985) , deWasch  and  Froment 
(1972),  Froment  and  Bischoff  (1979),  Gunn  and  Khalid  (1975),  Hall 
and  Smith  (1949),  Hanratty  (1954),  Hughmark  (1972,  1980),  Kunii  and 
Smith  (1960),  Kunii  et  al.  (1968),  Kwong  and  Smith  (1957),  Lerou 
and  Froment  (1977) , Leva  (1947a) , Leva  and  Grummer  (1948) , Li  and 
Finlayson  (1977),  Patterson  and  Carberry  (1983),  Plautz  and  John- 
stone (1955),  Reilly  (1957),  Schertz  and  Bischoff  (1969),  Schlunder 
(1978),  Schotte  (1960),  Scott  et  al.  (1974),  Smith  (1981),  Vort- 
meyer  and  Winter  (1982),  Wakao  (1976),  Wakao  et  al.  (1979),  Wakao 
and  Kato  (1968),  Whitaker  (1972),  Yagi  and  Kunii  (1960),  Yagi  and 
Wakao  (1959),  Yoshida  et  al.  (1962). 
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APPENDIX  H 

TWO-SIDED  EFFECTIVENESS  FACTOR  FOR  GENERAL 
INTRINSIC  KINETICS 

Consider  a catalyst  subjected  to  unequal  concentrations  on 
either  face  (Figure  49  ) . Tan  and  Smith  (1980)  derived  a rate 
expression  for  such  unsymmetric  boundary  conditions  (with  an  iso- 
thermal pellet)  and  first-order  intrinsic  kinetics.  Here,  their  idea 
is  extended  to  more  general  intrinsic  kinetics  of  the  form: 


r^=  k(T)f(C) 


(H-1) 


where  k(T)  is  the  rate  constant  (dependent  on  catalyst  temperature) 
and  f(C)  is  the  dependence  of  rate  on  concentration  of  a key  component 
(e.g.  f(C)=C  for  first-order,  f(C)=  C°  for  n-th  order,  f(C)=  KC/(1+KC) 
for  Langmuir-type,  etc.).  It  is  assumed  that  f(C)  can  be  expressed 
solely  in  terms. of  one  key  component  (e.g.,  Lee,  1985).  If  the  pellet 
(slab)  is  isothermal  then 


with 


= <l>^f(C) 


(H-2) 


C=C  at  z=-l  and  C=C  at  z=+l 
2 1 


where  z=x/L,  (() 
half -thickness 


2 2 

is  the  Thiele  modulus,  (J)  =L  k(T)/De,  L is  the  slab 
(or  Vp/Sp  for  other  shapes)  and  De  is  the  effective 
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xJ-L  I 

z=-l  I 

x=x* 

z=z* 


' x=+L 
z=4*l 


Figure  49:  Catalyst  Pellet  (Slab)  with 

Unsyminetric  Boundary  Conditions 
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diffusivity  of  the  key  component  in  the  pellet.  Integrating  equation 
(H-2)  from  the  inflection  point,  z*,  to  each  face  gives  the  concen- 
tration gradient  at  that  face.  Then,  equating  flux  at  the  surface  to 
reaction  into  the  pellet  at  that  face  gives 


or 


C. 

r "- 


(R  ).=  Sp[2  k(T)  De 
G 1 


f(C)dC] 

C* 


0.5 


(Rg/Vp).= 


1 

2(Vp/Sp) 


C. 

c 1 


0.5 


[2k(T)De 


f(C)dC] 


J 

C* 


(H-3) 


(H-4) 


Note  the  appearance  of  C*  (the  concentration  at  inflection  point)  in 
these  equations.  For  first-order  kinetics,  C*  can  be  obtained  directly 
from  the  analytical  solution  of  equation  (H-2)  to  be 

C*  = (Cj^/C2)°'^/cosh  ((|))  (H-5) 


No  analytical  solution  is  available  for  more  general  kinetics. 
However,  some  approximations  can  be  made.  First,  under  certain  con- 
ditions, C*— >0.  Let  P=C2/C1  so  that  C*=P°‘ ^C^cosh((Ji)  . If,  for 

example,  0.2<P<5.0  and  (j)  = 3,  then  0. 04<C*/C  <0.22  where  (f>  , the 

t>  1 G 

generalized  Thiele  modulus,  is  defined  as 


^G  = 


L(k/De)°-^f(C^) 
0.5 

[2  f(C)dC] 


(H-6) 


0 
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But,  such  a large  concentration  difference  (P=5)  seems  unlikely  in 

AFM  calculations,  thus  setting  C*=0  for  <|)  >3  is  probably  a reasonable 

G 

approximation  (e.g.,  if  P=2  and  <p  = 3,  C*/C  = 0.14).  And,  as  cj)  in- 

G j.  G 

creases,  C*  rapidly  approaches  zero  regardless  of  P.  Next,  if  these 

conditions  are  not  met  (i.e.  (p  small  or  P large),  C*  can  be  approxi- 

G 

mated  by  substituting  for  (|)  in  equation  (H-5) . If  <})  < 0.1  the 

^ G 

reaction  is  considered  free  of  diffusion  and  R = r (Lee,  1985) . 

G c 

The  exact  solution  to  equation  (H-2)  should  be  used  for  first- 
order  intrinsic  kinetics. 


APPENDIX  I 

PACKING  ARRANGEMENT  FROM  POTENTIAL  ENERGY 
MINIMIZATION 

Packed  bed  voidage  profiles,  axial  and  radial,  can  be  calculated 
if  the  exact  placement  of  each  pellet  within  the  tube  is  known. 
Experimentally,  locating  the  exact  position  of  each  pellet  would  seem 
unnecessary  since  voidage  profiles  can  be  measured  directly,  thus 
overriding  the  need  to  know  individual  pellet  locations.  If,  how- 
ever, the  packing  arrangement  can  be  determined  a priori,  solely 
from  the  tube  and  pellet  sizes,  there  is  no  need  to  measure  voidage 
profiles  from  experiments  or  to  determine  them  from  correlations. 

Consider,  then,  the  problem  of  locating  N spherical  pellets 
of  diameter  dp  within  a cylindrical  tube  of  diameter  Dt  and  infinite 
height.  If  the  tube  is  filled  from  the  top  (Figure  50  ) each  pellet 
will  fall  to  the  minimum  possible  height.  The  densest  packing 
(lowest  bed  voidage)  is  attained  when  all  pellets  within  the  system 
reach  their  minimum  height  or  gravitational  potential.  Thus,  the 
location  of  each  sphere  within  the  tube  can  be  determined  by  minimiz- 
ing the  overall  system  potential,  Z,  subject  to  several  constraints: 
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Figure  50:  Spherical  Pellets  within  Cylindrical 

Coordinate  System 
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N 

minimize  Z = Z z . 

i=l  ^ 

(I-l) 

z^  2.  dp/2 

(1-2) 

0 i r^^  0.5(Dt-dp) 

(1-3) 

0 ^ 0^  — 2tt 

(1-4) 

d . . > dp 

(1-5) 

(Note  that  the  only  physical  parameters  contained  in  the  problem 
statement  are  tube  and  pellet  size).  Here  (r^,0j^,z^)  locates  the 
position  of  the  center  of  the  i-th  sphere  (in  cylindrical  coordinates) 
and  d,  . is  the  distance  between  the  centers  of  the  i-th  and  i-th 
spheres  (Figure  50).  The  restrictions  (1-2)  and  (1-3)  imply  that 
each  pellet  can  neither  fall  below  the  bottom  of  the  tube  nor  extend 
past  the  tube  wall,  while  (1-5)  prevents  pellets  from  overlapping. 
Constraint  (1-4)  defines  the  angular  coordinate  range.  Note  that 
the  only  nonlinearity  appears  in  constraint  (1-5)  since: 

2 2 9 2 

d.  .=  rf  + r'^  - 2r.r.cos(0.-  0 )+  (z  - z ) (l-6) 

ijJij  ij  ij  li 

And,  while  there  are  only  N restrictions  of  types  (1-2)  through 
(1-4),  there  are  N(N-l)/2  of  type  (1-5).  Thus,  the  problem  is  to 
minimize  a linear  objective  function  (I-l)  of  3N  variables  N times 
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(^i.Si.Zi)  with  3N  linear  and  N(N-l)/2  nonlinear  constraints.  While 
the  constraints  could  be  handled  using  Lagrangian  multipliers  and  slack 
(Beveridge  and  Schechter,  1970)  the  resulting  system  would  contain 
a prohibitive  number  of  equations  and  unknowns.  However,  the  problem 
can  be  simplified  by  modifying  the  objective  function. 

Consider  the  objective  function 

N N i-1 

J = E z + Z I f(d.  .)  (I-7a) 

i=l  ^ i=2j=l 

where 


0 , d > dp  (l-7b) 

J 

A(dp-d  ) , d < dp  (I-7c) 

and  A is  some  known  (positive)  constant.  The  effect  of  the  double 
summation  is  to  increase  the  objective  function  for  packing  arrange- 
ments which  cause  pellets  to  overlap.  Although  a simple  constant 
(instead  of  equation  (I-7c))  would  affect  elimination  of  an  overlap 
situation,  the  square— root  functionality  will  allow  a numerical  search 
to  differentiate  "bad"  from  "worse".  Restrictions  (1-2) -(1-4) 
still  apply. 

Hence,  the  problem  has  been  converted  to  minimization  of  a non- 
linear objective  function  (equations  (1-7))  of  3N  variables  subject  to 
3N  linear  constraints  (equations  (1-2) -(1-4) ) . The  problem  can  be 
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further  simplified  by  fixing  the  position  of  one  sphere  (e.g.  at  (0, 
0,0. 5dp)  since  only  relative  positions  are  needed.  The  limits  of  the 
summations  of  equation  (1-7)  would  remain  the  same,  but  the  number  of 
unknowns  and  restrictions  would  each  be  reduced  by  3 (one  less  each 
equations  (I-2)-(I-4). 

Once  the  system  of  equations  has  been  solved  (l.e.,  all  pellets 
located),  bed  voidage  profiles  can  be  calculated.  At  any  axial  posi- 
tion, z,  the  average  voidage  over  the  entire  tube  cross-section  AT  THAT 
z is 

N 2 2 

e(z)=  1-4  E b./D  (I_3) 

j=l  J t 


where 


-I  0 

j l[0.25dp^-(z^-z)^j°'^ 


if  I z .-  z I >.  dp/2 
if  I z I .<  dp/2 


(1-9) 


Around  any  cylindrical  shell  of  radius  r the  average  voidage  over  the 
increment  z^-  z^  is 


where 


r 2 

C N 

= 1- 

E a. 

i=l  i 

/ 

dz/ 2tt 


(I-IO) 


'o 

2 2 9 

- r^  -(dp2/4) 

arccos  — 

2rr . 

1 


if 

if 


|r^-  r|  _>  dp/2 


Ir^-r I <dr/2 


(I-ll) 


The  integration  of  equation  (I-ll)  must  be  numerical. 
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For  a system  with  Dt/dp=1.5  the  relative  positions  of  the  spheres 
can  be  intuitively  determined  as  shown  in  Figure  51.  If  the  above 
minimization  theory  holds,  then  solution  to  the  corresponding  set  of 
equations  should  yield  the  desired  arrangement. 

The  minimization  technique  of  Luus  and  Jaakola  (1973)  was  applied 
to  a system  of  two  pellets  with  Dt/dp=1.5.  With  one  pellet  fixed  at 
(0,0,0.5dp)  and  an  initial  guess  on  the  second  pellet's  position 
at  (0.25±0.125)dp,  ir  + ir,  (1. 5±1. 0)dp  their  method  gave  = 

(0.25dp,  0.994ir,  1.366dp).  The  minimization  technique  of  Luus  and 
Jaakola  worked  equally  well  for  other  initial  guesses  and  for  two 
pellets  with  Dt/dp=2.0.  But,  the  technique  failed  for  more  complex 
systems  (e.g.,  Dt/dp=3 . 0 with  7 spheres,  one  fixed,  and  hence  18  un- 
knowns). A FORTRAN  program  for  two  pellets  follows. 
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Figure  51;  Stacked  Arrangement  of  Spherical 
Pellets,  Dt/dp=1.5 
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FILE;  KKPEMIN  FORTRAN  A1  NORTHEAST  REGIONAL  DATA  CENTER  VM/SP  RELEASE  3 CMS 


THIS  PGM  FINDS  THE  MOST  DENSE  SPHERICAL  PELLET  PACKING 
CONFIGURATION  BY  MINIMIZING  THE  POTENTIAL  ENERGY  OF  THE 
SYSTEM.  THAT  IS,  MINIMIZE  THE  SUM  OF  THE  HEIGHTS  OF 
THE  PELLETS,  GIVEN  THE  VARIOUS  CONSTRAINTS. 

DIMENSION  VARIABLES 

DIMENSION  W(6>, R(6),  Z(6> 

COMMON  /AA/  X(6»,IMAX 
IMAX  - 6 
VARIABLE  LIST.  . . 

W-AHRAY — EACH  TRIPLET  ( W ( 1 ) , M( 2 ) , U( 3 > ) REPRESENTS  THE 

R, THETA, Z (RESPECTIVELY)  POSITION  OF  A GIVEN  SPHERE 
U IS  THE  BEST  POINT  FROM  LAST  - START  PT.  FOR  THIS  RANGE  ITER. 
X-ARRAY--SAME  SET-UP  AS  W-ARRAYi  THESE  ARE  THE  TEST  VALUES 
Z-ARRAY— SAME  SET-UP  AS  W-ARRAYl  THESE  RETAIN  THE  BEST 

VALUES  AT  ANY  GIVEN  TRIAL  WITHIN  A GIVEN  RANGE  ITERATION 
R-ARRAY — RANGES  FOR  CORRESPONDING  W VALUES 

TUBE  AND  PELLET  SIZE  DATA 


C INITIALIZE  OPTIMIZATION  PARAMETERS 
C UU=«>NO.  OF  TIMES  TO  REDUCE  RANGE  SIZE 
C KP=->NO.  OF  POINTS  TO  TRY  WITHIN  EACH  RANGE  ITERATION 
C E -=>AMOUNT  BY  WHICH  TO  REDUCE  RANGE  IN  SUBSEQUENT  ITERATIONS 
9 READ(3,  lOOOMU,  KP,  E 

IF(JU  . LT.  DGOTO  5000 

WRITE (6, 2040) JU, KP, E 
C SEED  RANDOM  NO.  GENERATOR 
CALL  RSEED(O) 

C WRITE  HEADINGS  AND  INITIAL  GUESS 
N =•  IMAX/3 
WRITEI6.  2000)N 
WRITE(6, 2010) 

WRITE (6. 2020) <W( I), 1=1, IMAX) 

C CALC  FUNCTION  AT  INITIAL  GUESS 
DO  5 I-l,  IMAX 
5 X( I ) = W( I ) 

CALL  FUN(FO) 

C WRITE  FUNCTION  AT  INITIAL  GUESS 
WRITE(6,  2030)F0 

C NOW,  CALCULATION  AND  COMPARISON 
DO  500  J=l, JU 
DO  400  K=l, KP 

C PICK  TRIAL  POINT  VIA  RANDOM  POSITION  WITHIN  PARAM.  RANGES 
DO  300  1=1. IMAX 

V - RNDMF( 1.  O) 

V = V-0.  5 

300  X( I ) = W( I ) + V*R( I ) 

C CHECK  INEQUALITY  CONSTRAINTS — ELIMINATE  POINT  IF  DOESN'T  WORK. 
DO  310  1=1, IMAX, 3 

C MAX  RADIAL  POSITION  IS  (DT-DP)/2.  .. 

TEST  = DP*(0TDP-1.  )/2. 

IF( X( I ) . LT.  0)G0T0  400 
IF(X(I)  . GT.  TEST)GOTO  400 
C THETA  SHOULD  BE  BETWEEN  +/-  PI... 

II  = I+l 

IF(X(II)  . LT.  0.  0)G0T0  400 
IFIXdl)  . GT.  2.  0»P  I ) GOTO  400 
C MIN  Z POSITION  IS  DP/2... 

II  = 1+2 

IFIXdl)  . LT.  DP/2.  ) GOTO  400 
310  CONTINUE 

C CHECK  DISTANCE  BETWEEN  PELLET  CENTERS  (CANNOT  BE  CLOSER  THAN 
DO  330  L-1,  IMAX, 3 


KKPOOOlO 
KKP00020 
KKP00030 
KKP00040 
KKP00050 
KKP00060 
KKP00070 
KKP00080 
KKP00090 
KKPOOlOO 
KKPOOl 10 
KKP00120 
KKP00130 
KKP00140 
KKPOOl 50 
KKPOOl 60 
KKP00170 
KKPOOISO 
KKP00190 


DP  = 

1.  0 

KKP00200 

DTDP 

- 2. 

KKP00210 

PI  = 

3.  141596 

KKP00220 

INITIAL 

GUESS  AT  POSITION  OF  SPHERES 

KKP00230 

W(  1 ) 

- 0.  5#DP 

KKP00240 

W(2) 

- 0 

KKP00250 

W(3) 

- DP/2. 

KKP00260 

W(4) 

- 0.  25*DP 

KKP00270 

W(5) 

- PI 

KKP002S0 

W(6) 

= 1.  5*DP 

KKP00290 

INITIAL 

RANGES 

KKP00300 

R(  1 ) 

= 0 

KKP00310 

R(2) 

- 0 

KKP00320 

R(3) 

- 0 

KKP00330 

R(4) 

- 0.  23*DP*(DTDP-1.  ) 

KKP00340 

R(5) 

- PI 

KKP00350 

R(6) 

- DP 

KKP00360 

KKP00370 
KKP003S0 
KKP00390 
KKP00400 
KKP004  10 
KKP00420 
KKP00430 
KKP00440 
KKP00450 
KKP00460 
KKP00470 
KKP00480 
KKP00490 
KKP00500 
KKP00510 
KKP00520 
KKP00530 
KKP00540 
KKP00550 
KKP00560 
KKP00570 
KKP005B0 
KKP00590 
KKP00600 
KKP00610 
KKP00620 
KKP00630 
KKP00640 
KKP00650 
KKP00660 
KKP00670 
KKPOO60O 
KKP00670 
KKP00700 
KKP00710 
KKP00720 
KKP00730 
KKP00740 
KKP00750 
KKP00760 
KKP00770 
KKP007B0 
TQUCHINGKKP00790 
KKP00800 
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FILE:  KKPEMIN  FORTRAN  A1  NORTHEAST  REGIONAL  DATA  CENTER  VM/BP  RELEASE  3 CMS 


320 
330 
C 


DO  320  M-1, IMAX, 3 
IF(L  . EQ.  M)COTO  320 

THETA  =‘x(Lin-X(M^n 

D IFf"-°^7l;2?-X TmI2  ‘ «0S  < theta , ‘ 

DIFF  - DIFF*DIFF 
DLM  - DLM  + DIFF 
DLM  » SORT (DLM) 

CdMuE*-^-  OP'S- O’COTO  400 
CONTINUE 

^^CAlPfUN(fI  CONSTRAINTS— DEVALUATE  FUNCTION 

C CHECK  FOR  MINIMUM 
„ IF(F  . CE.  FO)  GOTO  400 

C ME  HAVE  A NEU  MIN 
FO  ■»  F 

DO  340  1=1, IMAX 
340  Z( I,  = x(I) 

400^^^C0NTINUE^  CONSTRAINT  NOT  MET  OR  FUNCTION  NOT  MIN 
^'^'^DO^aIo  1 = 1,  IMAX^'^”^^^°  RANGES 

w ( I ) = r ( I ) 

C DECREASE  RANGES 

R<I)=R(I)*(1.  0-E) 

410  CONTINUE 

ioO®°  CONTINUE  ROUND  IN  THE  SMALLER  RANGES 

C WE'RE  FINISHED! ! ! 


C 

1000 

2000 

2010 

2020 

2030 

2040 

C 


FORMAT (13,  1 X,  13,  1 X,  F5.  3 ) 

1 /""^'number 'of^pellet” 

^gW^'x"3(l!5:;jSlir'"*'  'Z''/'»X.3(10('-',.3X,, 
formatI  ' optimization'^param^.  *JU-'fl3;  ''  'kp-',  13,  ' EPS 


5000 


10 


GOTO  9 

STOP 

END 

SUBROUTINE  FUN(F) 
COMMON  /AA/  X(6),IMAX 
F = 0 

DO  10  1=3,  IMAX,  3 
F = F + X(I) 

CONTINUE 

RETURN 

END 


SEARCH', 


',F5;3) 


KKPOOSIO 

KKP00B20 

HKPO0S3O 

KKP00B40 

KKPO0S5O 

KKP00860 

KKP00S70 

KKPOOSSO 

KKP00890 

KKP00900 

KKP00710 

KKP00720 

KKP00930 

KKP00940 

KKP00950 

KKP00760 

KKP00770 

KKPO07S0 

KKP00770 

KKPOIOOO 

KKPOlOlO 

KKP01020 

KKP01030 

KKP01040 

KKP01050 

KKP01060 

KKP01070 

KKP01080 

KKP01070 

KKPOl 100 

KKPOl 1 10 

KKP01120 

KKPOl 130 

KKPOl 140 

KKPOl 150 

KKPOl 160 

KKPOl 170 

KKPOllBO 

KKPOl 170 

KKP01200 

KKP01210 

KKP01220 

KKP01230 

KKP01240 

KKP01250 

KHP01260 

KKP01270 

KKP012B0 

KKP01290 

KKP01300 

KKP01310 

KKP01320 

KKPOl  .730 


APPENDIX  J 

SUGGESTIONS  FOR  FUTURE  WORK 
Cell  Length  and  Plug  Thickness 

The  AFM  uses  porosity  profile  data  to  determine  axial  cell  length 
and  radial  plug  distribution.  These  parameters  alone  then  determine 
the  velocity  profile,  flow  distribution,  and  all  mass  dispersion  charac- 
teristics. The  porosity  profiles  for  uniformly  sized  spherical 
pellets  packed  in  cylindrical  tubes  are  well-docximented  (as  dis- 
cussed in  the  Mass  Dispersion  chapter) , but  (as  mentioned  in  the  Heat 
Dispersion  chapter)  such  details  are  not  readily  available  for  cy- 
lindrical pellets.  Since  many  applications  involve  spheres  of  non- 
uniform  size  distributions  or  non-shperical  pellets,  the  AFM  requires 
the  corresponding  porosity  profiles  to  adequately  describe  such  appli- 
cations. And,  even  for  uniformly  sized  spheres,  the  Cohen-Metzner 
radial  and  HCP  axial  porosity  profiles  may  not  apply  below  some  small 
Dt/dp.  The  research  proposed  below  enables  the  AFM  to  account  for 
the  effect  of  pellet  shape  on  mass  dispersion. 

Objectives 

The  specific  objectives  are  to  evaluate  axial  and  radial  poro- 
sity profiles  for  cylindrical  tubes  packed  with  spherical  pellets: 
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1.  uniformly  sized,  at  low  Dt/dp.  Below  some  critical  Dt/dp, 
the  previously  established  profiles  may  not  apply  (e.g.,  for 
Dt/dp=1.5  the  axial  porosity  cycle  width  is  0.866dp  vs  0.816dp 
for  HCP); 

2.  of  known  size  distribution; 

and  packed  with  cylindrical  pellets  (with  the  added  objective  of  iden- 
tifying a simple  "shape  normalization"  parameter,  i,e.,  an  effective 
diameter  by  which  irregular  shapes  can  be  equated  to  spheres) : 

3.  uniformly  sized,  with  each  pellet  at  a known  position 
(similar  to  the  Dt/dp  numerical  calculation  case  presented 

in  the  Mass  Dispersion  chapter);  this  will  establish  a method 
of  calculating  e(r,z)  in  the  theoretical  approach  to  each  of 
the  remaining  objectives; 

4.  uniformly  sized,  with  aspect  ratio  l/d=l;  this  provides  the 
simplest  non-spherical  shape; 

5.  uniformly  sized,  with  aspect  1/d  other  than  1; 

6.  of  known  size/shape  distribution. 

Theoretical  Approaches 

The  exact  position  of  each  spherical  pellet  within  a cylindrical 
tube  can  be  determined  by  minimizing  a potential  function  as  outlined 
in  Appendix  I.  Each  approach  below  suggests  modifying  the  minimization 
problem  to  account  for  shape  irregularities.  In  each  case,  the  re- 
sulting overall  bed  voidage  should  be  checked  against  experimental 
values  (measured  as  below  or  from  available  literature  data,  e.g.. 

Leva  and  Grummer,  1947b). 
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For  the  spherical  cases  (numbers  refer  to  objectives,  above): 

1.  optimization  as  stated  in  Appendix  I since  spheres  are  uni- 
formly sized; 

2.  modify  the  minimization  problem  to  include  a probability  that 
each  pellet  will  be  of  certain  diameter,  e,g.,  if  packing  is 

a mixture  of  30%  dp^  and  70%  dp^  then  as  each  pellet  is  de- 
fined select  its  diameter  using  a normal  distribution  and 
random  number.  Generate  a random  number  between  -1  and  +1 
at  each  pellet  definition.  If  the  number  falls  within  the 
+/-35%  Gaussian  limits  of  zero,  then  dp=dp2*  Otherwise, 
dp=dp^.  Alternatively,  define  pellets  in  groups  of  10, 
letting  three  of  them  have  dp=dp^  and  seven  have  dp=dp^. 

For  the  cylindrical  pellet  cases: 

3.  develop  a procedure  for  specifying  the  position  of  each 
pellet  and  for  calculating  the  corresponding  e(r,z).  For 
example,  the  pellet  position  may  be  defined  by  its  centroid 
and  its  volume  described  by  the  equation  for  a cylindrical 
shell  surrounding  that  centroid.  Then,  axial  calculations 
would  involve  the  intersection  of  z-planes  with  the  individual 
cylinders  and  radial  porosity  would  involve  the  intersection 
of  a larger  cylindrical  shell  with  the  individual  packing 
cylinders.  Note  that,  for  cylindrical  pellets,  orientation 
must  also  be  considered  in  defining  the  occupied  volume,  i.e., 
the  angle  between  each  pellet's  axis  and  the  tube  axis.  In 
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the  simplest  cases,  all  pellets  would  have  the  same  orien- 
tation (e.g.,  pellet  axes  perpendicular  to  tube  axis  or  pellet 
axes  parallel  to  tube  axis).  Establish  a simple  test  case, 
such  as  pellets  with  l/d=4,  with  two  pellets  per  layer  each 
in  the  perpendicular  orientation  as  illustrated  in  Figure  52. 
Coordinates  can  be  determined  from  geometric  analysis; 

4.  including  the  orientation  of  each  pellet  increases  the  diffi- 
culty of  the  problem — orientation  becomes  an  additional  un- 
known. If  pellet  shape  can  be  reduced  via  some  effective 
diameter  to  a sphere,  the  problem  is  greatly  simplified. 

Thus,  attempt  the  minimization  in  the  following  steps: 

a.  treat  each  pellet  as  a sphere  with  an  effective  diameter 
of  ( (d**2+l**2) /2) **0. 5 . If  the  overall  bed  voidage  is 
close  to  the  experimentally  measured  value,  this  is  a 
good  approximation.  If  not,  try  a different  normaliza- 
tion (e.g.,  dp/4)  until  a good  match  on  e is  attained- 

bed 

b.  treat  each  pellet  as  a cylinder  whose  position  and  volume 
are  defined  by  the  method  established  in  objective  3; 
note  that  orientation  becomes  an  additional  unknown  in 
the  minimization  problem.  Start  with  the  least  compli- 
cated case  of  a 50/50  probability  of  the  parallel  or 
perpendicular  orientations.  Replace  the  f(d  ) function 

ij 

(used  to  eliminate  packing  arrangements  which  cause  two 
pellets  to  occupy  the  same  volume)  with  a volume  of  over- 


lap function; 
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c.  include  a full  distribution  of  orientation,  as  opposed 
to  the  50/50  mix.  Assign  orientations  by  random  numbers 
within  some  normal  distribution. 

5.  as  for  objective  4,  but  with  size  of  each  pellet  determined 
from  the  known  distribution  as  in  objective  2; 

6.  as  for  objective  4; 

Experimental  Approaches 

For  each  of  the  objectives  listed  above,  the  experimental  tech- 
nique is  the  same.  Care  should  be  taken  to  pack  the  tube  a few  pellets 
at  a time,  shaking  the  tube  after  each  addition  to  ensure  the  densest 
packing.  A screen  should  be  placed  over  the  top  of  the  packed  section 
so  that  pellets  do  not  float  during  the  measurement  procedure. 

1.  Axial  profile 

a)  water  method — described  in  Appendix  C.  Pellets  must  be 
large  enough  to  allow  for  accurate  reading  of  the  water 
level. 

b)  "wax"  method — use  cylindrical  tubes  of  disposable  material 
(e.g.,  commonly  available  containers  for  products  such 

as  oatmeal  or  cleanser) . Pellets  should  be  of  material 
of  known  density  that  can  be  cut  with  available  tools. 

Pack  the  tube  as  described  above,  secure  top  of  packed 
section  with  screen.  Fill  container  with  hot  liquid  wax 
(slowly  to  avoid  bubbles)  or  other  material  (e.g., epoxy 
or  gelatin)  of  known  density  which  will  not  contract  on 
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hardening.  Allow  filling  material  to  harden  and  then 
peel  off  cardboard  container.  Cut  off  ends  so  that 
remaining  cylinder  contains  packed  section  only  (no  re- 
gions of  "wax"  only) . Weigh  the  entire  cylinder  and 
measure  its  volume.  Determine  the  relative  amounts  of 
"wax"  and  pellet  material  from  density  calculations. 

Cut  several  discs  from  cylinder,  being  sure  to  record 
their  relative  axial  position.  Each  disc  should  be 
short  enough  to  give  good  indication  of  axial  periodi- 
city, e.g.,  of  length  <dp/4.  Calculate  the  porosity  of 
each  disc  from  its  density  (as  for  overall  bed) . 

2.  Radial  profile — use  the  "wax"  method,  but  instead  of  cutting 
discs,  shave  off  smaller  annular  shells,  working  from  outside 
inward.  After  each  shaving,  weigh  the  remaining  cylindrical 
core  to  determine  how  much  mass  was  lost.  The  density  of 
the  shaved  annular  shell  can  then  be  calculated  as  the  incre- 
mental weight  loss/incremental  volume  change.  The  porosity 
can  be  calculated  by  relating  the  known  densities  of  the 
pellet  and  "wax"  materials  to  be  density  of  that  shell. 

Packed  Section  Velocity  Profiles 
Some  question  remains  as  to  whether  the  available  velocity  pro- 
file data  truly  represent  flow  within  the  interstices  of  the  packed 
section  since  measurements  were  taken  in  the  empty  tube  some  distance 
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beyond  the  bed  exit.  The  most  detailed  data  are  given  by  Mariovoet 
et  al.  (1974)  for  spherical  pellets  at  a short  distance  (0.625dp)  into 
the  empty  tube.  AFM  predictions  closely  follow  these  data,  but  they 
are  at  only  one  Dt/dp  value.  Further,  such  details  for  cylindrical 
packing  is  unavailable.  Thus,  the  following  research  is  proposed  to 
verify  the  AFM's  method  for  calculating  velocity  profiles. 

Ob.i  ec  fives 

1.  verify  AFM  method  for  calculating  velocity  profiles  for 
spherical  and  cylindrical  pellets; 

2.  determine  effect  of  pellet  roughness  on  velocity  profile; 

3.  determine  range  of  applicability  of  AFM  method  for  calcu- 
lating velocity  profiles. 

Theoretical  Approaches 

Objectives  1 and  2 — based  on  the  measured  (empty  tubes)  velocity 
profiles,  back  out  what  entrance  profile  was.  Must  solve  Navier-S tokes 
(N-S)  equations  for  empty  tube.  Look  to  work  of  Vortmeyer  and 
Winter  (1982)  as  guide;  they  have  solved  the  N-S  equations  for  set 
entrance  velocity  profiles.  Or,  given  exact  position  and  shape  of 
each  pellet,  solve  the  N-S  equations  for  velocity  profiles  in  the 
packed  section.  (Objective  3 — no  definitive  theoretical  approach.) 
Experimental  Approaches 

The  technique  of  Marivoet  et  al.  (1974)  can  be  applied  here  to 
achieve  all  three  objectives.  Their  method  uses  a revolving  point 
sensor  for  minimum  disturbance  to  flow  pattern  during  measurement. 


181 


1.  measure  velocity  profiles  for  wide  range  of  Dt/dp  and 
pellet  shapes.  Compare  to  AFM  predictions; 

2.  compare  measured  velocity  profiles  for  smooth  and  rough 
pellets  of  same  relative  size  (i.e.,  same  Dt  and  same  dp). 
(Should  see  no  difference  since  roughness  will  effect  all 
pellets  in  same  way) ; 

3.  measure  velocity  profiles  over  wide  range  of  flow  rates, 

* Look,  for  minimum  below  which  and/or  maximum  above 
which  the  porosity-velocity  relationship  breaks  down.  Look 
for  Dt/dp  range  also  (e.g.,  for  Dt/dp=1.5,  the  bulk  fluid  may 
snake  through  as  one  plug,  leaving  dead  spaces,  or  regions 
of  zero  velocity,  near  the  wall) . 

Applicability  of  AFM  versus  Fickian  Analogy 

The  main  text  of  this  work  shows  the  AFM  to  equal  or  surpass  in 
all  mass  dispersion  and  most  heat  dispersion  cases  examined  here.  But, 
it  was  also  pointed  out  that  while  the  AFM  cannot  predict  the  diffusion 
like  behavior  expected  at  very  low  flow  rates  the  Fickian  analogy 
(with  axial  dispersion)  will  predict  back-mixing  where  none  is  observed 
experimentally.  Thus,  each  model  must  have  a particular  range  of 
system  variables  in  which  it  should  be  preferred.  The  degree  of  tur- 
bulence determines  whether  the  AFM  will  apply  to  a given  situation. 
Turbulence  in  packed  beds  is  not  well-defined,  however,  as  pointed  out 
in  the  discussion  of  Reynolds  numbers  (Chapter  II).  The  following 
research  is  therefore  proposed  for  systems  of  uniformly-sized  spherical 
packing . 
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Obj  ectives 

1.  determine  range  of  flow  rates  and  fluid  properties  (i.e.  some 
form  of  Reynolds  number)  over  which  AFM  best  describes  dis- 
persion in  packed  beds; 

2.  determine  range  of  Dt/dp  over  which  AFM  best  describes  dis- 
persion in  packed  beds  (there  may  be  a maximum  above  which 
the  Fickian  analogy  gives  satisfactory  results) . 

Experimental  Approaches 

The  same  experiments  can  be  used  to  define  dispersion  behavior 
for  each  of  the  objectives,  above.  The  simplest  experiments  are  those 
involving  mass  dispersion  only  since  the  pellets  are  inert,  i.e., 
they  act  merely  as  barriers  to  flow  and  do  not  absorb  any  mass. 

1.  The  steady-state  injection  of  dye,  or  tracer  material,  at 

some  point  along  the  tube  centerline  can  be  used  to  determine 
the  Reynolds  number,  Re*,  at  which  back-mixing  is  observed. 
Experiments  using  salt  and  indicator  (as  described  by  Hiby, 
1963)  should  be  used  as  they  give  visible  concentration  pro- 
files. Determine  Re*  for  several  Dt/dp  values.  Then,  run 
steady-state  tracer  injection  experiments  for  gases  (as 
described  by  Fahien  and  Smith,  1955)  over  range  of  Re  which 
includes  Re*.  Apparatus  should  be  geometrically  similar 
(i.e., same  Dt/dp)  to  system  used  to  determine  Re*.  To  mini- 
mize entrance  effects,  the  tracer  injection  tube  should  have 
a straight  section  of  at  least  five  tube  diameters  before 
entering  the  packed  section  (as  opposed  to  "angling  in"  a 
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short  distance  before  the  packing) . Verify  the  steady-state 
results  with  transient  F-curve  experiments  (as  described  by 
Danckwerts,  1953)  which  have  no  entrance  effects.  There 
will  probably  be  some  minimum  Re  (close  to  Re*)  below  which 
the  AFM  fails  to  match  experiment  (even  when  the  "laminar" 
hydraulic  resistance  is  used  to  calculate  flow/velocity 
profiles) ; in  this  range,  the  Fickian  analogy  with  axial 
dispersion  will  better  describe  the  observed  concentration 
profiles.  And,  there  will  probably  be  some  maximum  Re  above 
which  both  models  can  describe  the  observed  dispersion  be- 
havior. These  Re  limits,  however,  probably  depend  on  Dt/dp; 

2.  Run  both  steady— state  and  transient  mass  dispersion  experi- 
ments for  low  Dt/dp.  At  very  low  Dt/dp,  the  injection  tube 
must  be  of  small  size  relative  to  the  pellets  so  that  the 
entrance  effect  will  not  obscure  meaningful  results.  Alter- 
natively, at  very  low  Dt/dp,  run  only  the  transient  experi- 
ments since  the  radial  velocity  profile  determines  the  shape 
of  the  F-curve.  There  will  probably  be  some  minimum  Dt/dp 
below  which  the  Fickian  analogy  cannot  match  the  data,  re- 
gardless of  Re.  There  will  probably  be  some  maximum  Dt/dp 
above  which  both  the  AFM  and  the  Fickian  analogy  follow  the 
data  (given  the  Re  range  determined  above) . 
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Effect  of  Pellet  Shape  on  Mass  Dispersion 

According  to  the  AFM,  the  only  effect  pellet  shape  should  have 
on  mass  dispersion  is  via  the  corresponding  porosity-velocity  pro- 
files. All  systems  compared  in  the  Mass  Dispersion  chapter  were  for 
spherical  pellets.  It  is  therefore  proposed  here  that  both  steady- 
state  and  transient  mass  dispersion  experiments  be  carried  out  for 
systems  of  non-spherical  pellets  for  which  porosity  profiles  are  known. 
A wide  range  of  system  variables  (as  described  in  the  previous  section) 
should  be  examined. 

Pellet  Heat  Transfer  Coefficient 

Chapter  III  covered  steady-state  heating  of  a packed  bed  with 
constant  wall  temperature.  Such  cases  involve  both  wall  and  pellet 
heat  transfer  characteristics  and  any  results  thus  obtained  may  be 
coupled.  The  research  proposed  here  eliminates  wall  heat  transfer  to 
verify  the  pellet  coefficients  presented  earlier. 

Obj  ectives 

1.  verify  the  hp  correlation  (equation  50))  presented  earlier 
for  uniformly  sized  spherical  pellets  of  low  thermal  conduc- 
tivity; 

2.  verify  the  shape  factor,  y (equation  (50)),  for  cylindrical 
pellets  and  determine  whether  y depends  on  aspect  ratio  of 
individual  pellets; 

3.  determine  effect  of  mixture  of  pellet  sizes  on  hp; 
determine  the  effect  of  pellet  surface  roughness  on  hp; 


4. 
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5.  determine  the  effect  of  fluid  properties  on  hp; 

6.  determine  the  effect  of  pellet  material  properties  (e.g., 
thermal  conductivity,  specific  heat,  etc.)  on  hp; 

7.  verify  that  tube  characteristics  do  not  effect  hp. 
Experimental  Approaches 

Decoupling  pellet  from  wall  heat  transfer  requires  an  insulated 
tube.  In  this  case,  the  simplest  heat  transfer  experiment  is  analo- 
gous to  the  steady-state  Injection  of  tracer  material:  the  steady- 
state  injection  of  heated  fluid  at  some  point  along  the  tube  axis. 

To  minimize  entrance  effects,  the  Injection  tube  should  be  small 
relative  to  pellet  size  and  should  have  a straight  segment  of  at 
least  five  tube  diameters  before  entering  the  packed  section.  Radial 
temperature  profiles  should  be  measured  as  close  as  possible  to  the 
top  of  the  bed  to  minimize  exit  effects.  Axial  profiles  should  be 
obtained  by  successively  adding  more  packing  material  (as  described 
by  Fahien  and  Smith,  1955)  as  opposed  to  inserting  thermowells  into 

the  packed  section.  For  each  of  the  objectives,  the  following  details 
should  be  observed: 

1.  run  the  point-source  experiments  for  a "base  case"  system 
(i.e.,  smooth  spherical  pellets  in  smooth  tube).  The  tube 
material  should  have  a low  enough  thermal  conductivity  to  be 
considered  insulating  (e.g.,  glass) . Otherwise,  there 
will  be  heat  transfer  to  raise  the  wall  temperature.  Examine 
a wide  range  of  flow  rates  and  pellet  sizes  to  verify  the 
square-root  correlation  of  hp  to  (G/dp) ; 
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2.  run  experiments  as  described  for  objective  1,  using 
cylindrical  pellets; 

3.  run  experiments  as  described  for  objective  1 for  known  size 
distribution  of  spherical  pellets.  Determine  whether  some 
additive  form  of  equation  (50)  can  be  used  or  whether  new 
correlation  must  be  developed  for  each  size  mixture; 

4.  run  the  experiments  described  for  objective  1,  but  with  uni- 
formly sized  spherical  pellets  of  varying  degrees  of  surface 
roughness,  e.g catalyst  support  material.  The  value  of 

Y (equation  (50))  may  be  effected  by  pellet  roughness, 
which  can  be  described — 

a)  visually  (qualitative); 

b)  by  pellet  porosity  (an  indication  of  "holes"  on  the  sur- 
face; 

c)  by  pressure  drop  relative  to  smooth  tubes  of  same  geome— 

try,  r.e.,  toughness  - (AP)  at  sane  Re  and 

Dt/dp; 

5.  run  experiments  for  objective  1 with  fluids  other  than  air 
(for  which  equation  (50)  was  developed) . Check  correlation 
with  fluid  properties  such  as  thermal  conductivity,  specific 
heat,  etc.; 

6.  run  experiments  for  objective  1 with  materials  of  increasing 

O 

thermal  conductivity.  There  will  be  some  maximum  at  which  the 
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conduction  between  pellets  assumption  no  longer  holds.  Below 
this  maximum,  however,  check  correlation  of  hp  with  pellet 
material  properties  such  as  thermal  conductivity,  specific 
heat,  etc.; 

7.  run  experiments  for  objective  1 with  tubes  of  different  sizes. 
While  materials  of  varying  degrees  of  surface  roughness  would 
be  desirable,  care  should  be  taken  in  selecting  low  thermal 
conductivity  (i.e.,  insulating)  materials  for  the  reasons 
stated  above. 

Wall  Heat  Transfer  Coefficient 

Once  the  pellet  heat  transfer  coefficient  has  been  independently 
described  above,  the  constant  wall  temperature  experiments 
discussed  earlier  can  be  used  to  verify  the  AFM  hw  correlation.  The 
same  results  can  be  used  to  examine  the  weighted  average  for  calculating 
"wall  solid  plug"  temperatures  (equation  (37)). 

Objectives 

1.  verify  hw  correlation  form; 

2.  determine  the  effect  of  tube  characteristics  (e.g.,  roughness, 
Dt,  Dt/dp,  thermal  conductivity,  heat  capacity,  etc.)  on  hw; 

3.  determine  effect  of  bulk  fluid  properties  (e.g.,  thermal  con- 
ductivity, heat  capacity,  etc.)  on  hw; 

4.  verify  weighted-average  calculation  of  wall  solid  plug  tem- 
peratures. 
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Theoretical  Approaches 

The  complexity  of  convective  film  heat  transfer  precludes 
strictly  theoretical  prediction  of  hw.  However,  several  alternatives 
to  the  "stagnant  film"  argument  leading  to  the  weighted-average  tem- 
perature should  be  considered: 

1.  replace  the  stagnant  film  analysis  with  conduction  from 
wall  to  solid.  Note  that  not  all  of  wall  area  would  be  in- 
volved in  conduction  because  of  imperfect  contact  between 
P®Hsts  and  tube.  The  contact  area  would  be  determined 
^^pi^ically.  This  analysis  would  lead  to  some  constant 
value  for  the  equivalent  of  a(s,w)h*,  or  a weighting  that 
would  vary  with  flow  rate,  G; 

2.  consider  conduction  (rather  than  convection)  through  the 
stagnant  film.  Film  may  not  be  strictly  stagnant,  so  that 
its  thickness  will  depend  on  flow  rate,  G.  This  analysis 
would  lead  to  a flow-dependent  equivalent  of  a(s,w)h*,  or 

a weighting  that  would  remain  essentially  independent  of  flow 
rate.  Look  to  boundary-layer  theory  as  guide  to  determining 
film  thickness. 

Experimental  Approaches 

Each  of  the  above  objectives  can  be  examined  by  the  constant  wall 
temperature  experiments  described  by  Yagi  and  Wakao  (1959).  Radial  and 
temperature  profiles  and  bulk  outlet  temperatures  should  be 
measured  for  each  run.  Radial  profiles  should  be  measured  as  close 
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as  possible  to  the  top  of  bed  to  avoid  exit  effects.  Axial  profiles 
should  be  obtained  by  adding  packing,  as  opposed  to  inserting  thermo- 
wells, to  avoid  disturbances  to  packing  geometry. 

3.  Select  a base  case  as  described  in  Chapter  III  (e.g., 
smooth  tube,  smooth  uniformly  sized  pellets) . Run  the  experi- 
ments, covering  a wide  range  of  flow  rates.  Compare  to  AFM 
results  using  the  independently  determined  hp  (previous  sec- 
tion) and  the  10%-90%  weighting  given  in  Chapter  III.  If 
(log  hw)-(log  G)  plot  exhibits  such  scatter,  either  corre- 
lation form  is  invalid  or  weighting  (for  wall  solid  plug) 

may  be  function  of  flow  rate  (as  described  in  Theoretical 
Approaches,  above).  Run  for  several  pellet  sizes; 

4.  run  the  experiments  as  described  for  objective  1,  varying 
tube  size  (with  constant  Dt/dp) , tube  size  (with  changing 
Dt/dp),  and  tube  material.  Check  correlation  of  hw  with 
these  parameters; 

5.  run  experiments  for  objective  1 but  with  fluids  other  than 
air  (for  which  all  cases  discussed  in  Chapter  III  were  run). 
Check  correlation  of  hw  with  fluid  properties; 

6.  this  objective  is  incorporated  into  the  experiments  for 
objective  1; 
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AFM  as  a Reactor  Design  Tool 

The  AFM  has  particular  applicability  to  situations  where  ordered 
flow  can  be  expected,  such  as  low  Dt/dp.  Such  situations  are  common 
in  applications  involving  highly  exothermic  catalytic  reactions 
where  only  a few  pellets  are  placed  across  the  tube  diameter  to  faci- 
litate cooling.  It  was  shown  earlier  that  the  AFM  and  Fickian  analogy 
predict  different  behavior  for  catalytic  reaction  within  the  pellets 
of  packed  beds.  Thus,  the  following  research  is  proposed. 

Ob.i  ectives 


1.  check  the  AFM's  ability  to  match  laboratory  data  for  reaction 
in  beds  packed  with  spherical  catalyst  pellets; 

2.  check  the  AFM's  ability  to  predict  hot  spots  in  wall-cooled 
reactors; 

3.  evaluate  the  AFM  as  a reactor  design  tool. 

Experimental  Approaches 

For  each  of  the  above  objectives,  the  deoxygenation  of  ethylene 
ethylene  is  proposed  as  the  test  reaction  since  its  kinetics 
have  been  previously  determined  (Hong,  1984;  Akella,  1983). 

1.  run  the  reaction  at  concentrations  and  flow  rates  that  mesh 
with  AFM  assumptions  (i.e.,  diffusion— limited,  no  back— mixing, 
stc.).  First,  run  adiabatic  reactions  (if  possible  without 
instabilities)  so  that  there  is  no  wall  heat  transfer  effect 
and  some  of  the  AFM  assumptions  can  be  verified.  Next,  run 
with  constant  wall  temperature  so  that  hw  correlations  and 
other  related  assumptions  can  be  verified.  Spherical  pellets 
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should  be  used  since  porosity  and  velocity  profiles  are  well- 
understood.  Radial,  axial,  and  bulk-averaged  outlet  profiles 
of  concentration  and  temperature  should  be  measured  for  each 
experiment.  Radial  profiles  should  be  taken  as  close  as 
possible  to  the  top  of  the  bed  (to  avoid  exit  effects)  and 
axial  profiles  should  be  measured  by  successively  adding 
packing  (to  avoid  disturbance  to  packing  geometry) . Several 
values  of  Dt/dp  should  be  tried  to  check  the  effect  of  flow 
distribution  on  conversion; 

2.  run  the  reactions  as  described  for  objective  1,  but  at  more 
severe  conditions  and  constant  coolant  (wall)  temperature. 
Increase  bed  depth  and/or  vary  reaction  conditions  until  a 
hot  spot  (axial  peak)  in  temperature  is  observed.  Check 
against  AFM  predictions; 

3.  the  example  problems  presented  in  Chapter  IV  suggest  insta- 

at  the  centerline  can  occur  before  they  occur  in 
the  outer  regions  of  the  tube.  This  suggests  that,  in  cases 
with  such  severe  conditions,  it  may  be  advantageous  to  pack 
the  bed  with  inert  (non-reacting)  pellets  along  the  tube 
axis  surrounded  by  active  catalytic  pellets.  According  to  the 
AFM,  little  conversion  would  be  lost  because  of  the  small  pro- 
portion of  the  total  fluid  which  flows  near  the  bed  center. 

If  the  AFM  proves  successful  in  following  the  reaction  data 
described  for  objectives  1 and  2,  above,  its  ability  to 
suggest  such  alternatives  to  normal  operating  procedure  should 
be  exploited. 


APPENDIX  K 

FORTRAN  PROGRAM  LISTINGS 
Steady-state  Mass  Dispersion 

The  following  program  consists  of  a main  calling  routine  and 
several  subroutines.  Program  flow  is  as  follows: 

1.  determine  radial  subdivisions  RA(I)  and  RB(I)  given  Dt/dp 
and  porosity  about  which  radial  cycles  oscillate  (EBAR) 
(subroutine  VOID  performs  numerical  integration  of  porosity 
function  EFUNC) ; 

2.  subdivide  flows  (G(I)  according  to  void  cross-sectional 
areas  A(I)  and  hydraulic  radii  RH(I)  (subroutine  ANN  does 
this;  two  versions  are  included~the  first  version  is  for 
turbulent  and  the  second  for  laminar  hydraulic  resistances); 

3.  calculate  velocities; 

4.  determine  weighting  factors  for  mixing  U(I)  (subroutine 
MIXl) ; 

5.  initialize  concentrations  C(I); 

6.  march  down  reactor  from  inlet  to  outlet,  transversing  NLONG 

axial  cells  (NOTE:  run  cases  with  NL0NG=1  for  trial  and 

error  on  the  value  of  EBAR  which  gives  the  desired  overall 
bed  voidage,  then  run  for  the  entire  bed  length  to  get  con- 
centration profiles) . 
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a)  A-to-B  transition  (subroutine  MIX2  with  ITRANS=0) 

b)  B-to-A  transition  (subroutine  MIX2  with  ITRANS=1) 

Other  variables  and  program  steps  are  commented  in  the  listing. 

All  flow,  area,  and  radius  variables  are  scaled  by  total  flow,  total 
tube  cross-section,  and  tube  radius,  respectively. 
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C FBOGBIB  HARB  >AAFT3  FOBTBAH' 

C 

C THIS  ROB  FOB  DATA  OF  LATIBBH 
C »-IHCa  PIPS 

C 

C LAST  OPDATE/OSE  CB  lH  HAI  85 
DIEEBSIOB  D(10) 

OIHEBSION  Q(100)  ,R(100)  ,A(100)  ,TBL(100) 

DIBEBSIOB  B(100),C(100) 

OIREBSIOR  BA  ( 100)  ,BB (100) 

C THIS  PfiCGRAR  CALCOLATBS  FLOBS  ABO  COHCSHTBATIONS  GITEB 
C AMROLUS  DinEBSIOBS. 

C 

DATA  BLOBG.BPBIBT  /1,0/ 

DATA  C /100»0.0/ 

DATA  MD.D  /I,  12.8,  11.1,  13.3,  25.6,  6*0.0/ 

DATA  B /100*0.0/ 

DATA  FODGE  /0.05/ 

C CALC  AREAS  BASED  OB  DTOP  ABD  EA 
DTDP  - 13.2 
DO  10  1=1,  100 
10  i(l)  » 20.0 

CCC  Z = DTDP  ♦ 0.5 

C BOB,  TRI  ASSIGBING  HO.  CELLS  BASED  OB  COBHELAIIOH... 

Z » DTDP/0.816  ♦ 0.5 
B » 2 
Z • B 
Z » 0.5»Z 
HB  « Z 
BA  • B-HB 

C BESTRICT  TO  EVER  HO.  SEGBERTS 
IF  (HA  .GT.  BB)  BB  > BA 
R * BA*HB 

BBITE  (6,2020)  DTDP,R,BA,BB 
C SIZE  RADII 

C SET  DP  TO  DO  IHCBEASIHG  EA'S... 

C SIZE  ElEBLT  SPACED  BADII 
ZB  « B/2 
DELB  = 1.0/ZB 
B(2)  > DELB 
DO  80  1=0, B, 2 
R (I)  = R(I-2)  ♦ DELR 

80  COBTIHUE 

C DETERBIHE  EPS  FOB  EACH  S8GBEHT... 

BEAR  = 0.3600 

C VOID  FBACTIOB  OF  FIBST  SEGBBHT 

CALL  »OID(100,DIDP,0.0,B(2)  ,EBAB,E1) 

1*2 

BBITE  (6,2010) I, El 
100  RA(1)  » ( 1.0-B1)  *B  (2)»S  (2) 

RA(1)  = SQBT(  RA(1)  ) 

HB  ( 1)  = E1*R  (2)  ‘H  (2) 

RB(1)  = SQHT(  HB(1)  ) 

HAI  = B-1 
DO  120  1=3, BAX, 2 

C fOID  FRACTIOHS  OF  BADIAL  CELLS  BASED  OH  COBREIATICB 
BHC2  = R(I*1) 

BBOl  = R(I-1) 

CALL  VOID ( 100, DTDP,aH01,BH02,EBAB,EHAT) 

IB  = in 

BRITE (6,2010) IB, EHAT 

IX  = B (1*1)  *R  (l»1)  - R (1-1)  *B  (1-1) 

HA (I)  = (1. 0-EHAT) *XX 

HA  (I)  = a (1-1)  »R  (1-1)  ♦ BA  (I) 

HA(I)  « SQHT(  BA(I)  ) 

RD  (I)  - BHAT  ♦ XX 

RB(I)  » R (I- 1)  *R  (I-l)  ♦ RB(I) 

RB(I)  = SgHT(  HB(I)  ) 

120  COBTIHUE 
HAI  = B-1 
BBITE  (6,2  150) 

BRITE(6,2160)  (RA(I),R(I»1)  ,i  = i,bax,2) 

BBITE(6,2160)  (BB(I)  ,R(I*1)  ,I=|,bax,2) 

CALL  ANN  (HA,HB,a,B,A,B1,E2,BA,HB) 

B = BA*HB 
DO  200  1=1, B 

200  TEL(I)  = E1*Q(IJ/A(I) 

C BRITE  RESULTS 


DOH00010 
DDHU0020 
DUE00030 
EUnOOOilO 
DUH00050 
D0R00060 
DOB00070 
DOHOOOeO 
DOH00090 
DOHOO 100 
DOH00110 
DUR00120 
Dunooiio 

CUHOO  140 
DOB00150 
DOHOO  160 
DOE00170 

DOHOO  leo 

DBEOO  190 

EOH00200 

DOH002 10 

DOE00220 

COH00230 

C0B00240 

EOH00250 

DOE00260 

EOH00270 

D0H00230 

EOH00290 

DDE00300 

EDH00310 

EOE00320 

EOH00330 

C0R0034O 

EOH003S0 

DOH00360 

EOH00370 

D0R00380 

DOH00390 

D0H00400 

EOR00410 

DOH00420 

DUH00430 

C0n00440 

COHOOUSO 

CDH00460 

CUE00470 

EUH00480 

D0H00490 

EDH00500 

DUH00510 

DUH00520 

DOE00530 

EUH00540 

DOE00550 

DUB0D560 

DOBOOS70 

EUH00580 

E0E00590 

EOH00600 

DDS006 10 

EUH00620 

DDHOO'630 

DOH00640 

EDP00650 

E0n00660 

EUB00670 

DUH00680 

EOH00690 

CUE00700 

COH007 10 

DDE00720 

EOH00730 

DOH00740 

DOB00750 

DOP00760 

Eaa00770 

DOH00780 

EDH00790 

DOB00800 
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WRITE  (6,2050) 

EUB008  10 

IF  ( NA  .GT.  NB)  GOTO  39  0 

DOB00820 

DO  300  1=2, H, 2 

CDB00830 

0*  1“  1 

DDB00890 

WB1TE(6,20  60)  1,A(I),Q(I)  ,TEL(I)  , J,A(J)  ,fl(J)  ,TEl(J) 

CUB00850 

JOO 

CONTINUE 

CUE00860 

WBITE(6,2070)  B1,E2 

CUROOSTO 

GOTO  910 

COB00880 

390 

CONTINUE 

COB00890 

BAX  « N-1 

DUB00900 

DO  900  1=1, BAX, 2 

EUH00910 

J = 1*1 

D0B00920 

WHITE  (6,2060)  I,A(I),Q{I)  ,TEL  (I)  ,J,A(J)  ,Q(J)  ,TEI(J) 

CDH00930 

400 

CONTINUE 

DUB00990 

WRITE  (6, 2060)  N,A(H),Q(N)  ,TEL(N) 

DOH00950 

WRITE  (6,2070) E1,E2 

D0B00960 

4 10 

CONTINUE 

CDB00970 

WRITE  (6,2150) 

00EO0980 

WBITE(6,2160)  (R  (I)  ,I=1,N) 

DUB00990 

CALL  Bin  (NA,NB,Q,I) 

DOBO 1000 

WRITE  (6,2170) 

DOBO 10  10 

WHITE  (6,2160)  (i(I),I»1,H) 

DOBO 1020 

IF(NA  .GT.  NB)C(1)  = 9.1E-3/0(1) 

DUBO  1030 

IF(NA  .EQ.  NB)C(2)  = 9.1E-3/Q(2) 

DUB01090 

N = NA  » NB 

CUBO  1050 

C NOi,  CAIC  COHCBBTHATIOHS* 

DOBO  1060 

WHITE  (6,2230) 

CUBO  1070 

NCUNT  = 0 

CUBO  1080 

500 

KOOBT  = KOONT+1 

DOBO  1090 

IF(XC0NT  .GT.  NLONG)GOTO  1000 

DUBO 1100 

IF(NOUNT  .LT.  2)  GOTO  510 

DUBO  1110 

CAIL  BIX2  (1,NA,BB,a,H,C) 

CUBO  1120 

5 10 

CALL  BIX2(0,NA,NB,Q,W,C) 

CUBO  1 130 

IF)EC0NT  .LT.  NEBINT)GOTO  710 

D0B01190 

WBITE(6,2290)  KOONT 

DOBO 1150 

IF(NA  .GT.  NB)  GOTO  690 

DDB01160 

C CALC  ATG  COBC  IN  EACH  HALF-CELL  FOB  NA=HB  (==>A*S  EVEN) 

DUB01170 

CASAS  = 0 

C0B01180 

CEBAB  • 0 

COBO  1 190 

DO  520  1=2, N, 2 

DOB01200 

CABAB  > CABAB  * C(I)*g(I) 

COB01210 

CEEAB  » CBBAB  ♦ C ( I- 1)  »Q  (I- 1) 

D0B01220 

520 

CONTINUE 

COBO  1230 

DO  600  1=2, N, 2 

D0B01290 

J = 1-1 

CUBO  1250 

CA  = C(I)/CABAR 

DUBO  1260 

CB  = C (J)  /CSOAR 

CUBO  1270 

WHITE  (6,2250)  I,  C ( I)  , CA,  J,  C ( J)  , C B 

DUBO 1280 

600 

CONTINUE 

COBO  1290 

GOTO  710 

C0B01300 

690 

CONTINUE 

CUBO  13  10 

CALC  ATG  COHC  IN  ZACB  HALI-CELl.  FOB  NA>NB  I’ 
CAEAB  « 0 

CEEAF  =•  0 

NAX  » H-1 
DO  695  1=2, BAX, 2 
CABAH  » CABAS  ♦ C(I-1|  ♦Q(I-l) 

CBEAB  = CEBAB  ♦ C(I)»a(I) 

695  CONUNOE 

CAEAB  = CABAB  ♦ C(N)*g(N) 

BAX  = N-1 
DO  700  1=1, BAX, 2 
J = 1*1 

CA  = C(I)  /CABAB 
CB  = C(J)/CEBAB 

SB  HE  (5, 2250)  I,C(I)  ,CA,J,C(J)  ,CB 
700  CONTINUE 

CA  = C(N) /CABAB 
NBITE  (6,2250)  H,C  (N)  ,CA 
710  CONTINUE 


OA*S  ODD) 


1000 


GOTO  500 
CONTINUE 


FOBBATS. 


20  10 

PORBAT(» 

I ='  ,19,  • EPS  = 

•,S11.9) 

2015 

POSBAT  ( • 

ALPHA  =',  E11.  9) 

2020 

FOBBAT  (' 

DTOP  = • ,E1  1.  9,  • 

B =M3, 

' BA  » • 

2030 

FCFBAT  ( • 

01/a  =•  , El  1.9) 

2040 

PORBAT 

F = ',E11.9) 

2050 

PORHAT(20X,'A',93X,'B* ,/, 

2X,  90  (•-• ) 

f2I,40( 

1 2(2X,*I' 

',7X,'A',11I,'F', 

91, 'TEL  • 

f 5X)  f / f 

,13, • BB  =',I3) 


DDE01320 
CUBO  1330 

curonuo 
CUBO  1350 
D0BO1360 
CUBO  1370 
DUB01380 
CUBO  1390 
CUBO  1900 
DOBO 19  10 
DUBO  1920 
DUB01930 
DUBO  1990 
CUBO  1950 
DUBO  1960 
COEO  1970 
CUBO  19B0 
DUBO  1990 
DUBO  1500 
CUBO  1510 
DUBO  1520 
DUBO  1530 
DUBO  1590 
DOBO  1550 
DUBO  1560 
DUBO  1570 
DUBO 1580 
DUBO  1590 
DUBO 1600 
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2 IX, 2(* •,2X,3C ’,2X))) 

2060  FOBBXT  (11,2  (I3,2X,3(E10.«,  2X)J  ) 

2070  FOBHATC  El  = •,E11.4,'  E2  = ',£11.4) 

2150  FOSBATC  BADII...') 

2160  FOBBAT  (5 (2X,E11.4) ) 

2170  FCBBATC  BIXINC  HEIGHT  FACTOBS.  . .•) 

22  30  FOBBAT  {9X,*  A*  ,30X,*B*,/,  2 (2X,  29  (•-■))  ,/, 

1 2X,2(1X,'I*,8X,'C*,7X,3X,*C/CATG*,4X) ,/, 

2 2X,2(> •,2X,' ’,2X,' ',2X)) 

02 345 67 89.  1233456789. 1234567  8 9. 123456789.1234567  89. 

2240  FOBBAT  (•  CEll  HO  ',15) 

2250  FOBBAT  (21,2  (13, 2X,  Ell.  4, 21,  El  1.4,  2X)  ) 

2260  FOBBATC  lA  « ',E11.4,*  EBBD  » ',E11.4) 

2270  FOBBATC  CALC.  IHTALID  TOID  FBACT.  PGB  ABOBTED  ') 
2290  F0BB1T(*  F -•,E11.4,*  SOB  -*,B11.4,»  EPSl  -SEU-I) 
SICI 
EHO 
C 

SUBBOUTIRE  ANH (HA, NB.Q , B, A, E I ,E2,BA, B B) 

DIBEHSIOM  BA  (100)  ,BB(100) 

DIBERSIOH  Q(100)  ,B  (100)  ,BB  (100)  ,A  (100) 

C CALC  RIDBAOLIC  BADII,  ABO  ABEAS 
H > HA  » HB 
C A HALF-CELL 

DO  10  I>2,R,2 

RH  (1)  -8(1)  - BA  (1-1) 

A(I)  « R(I)»n(I)  - HA(I-I)  *BA(I-1) 

10  COBTIHOE 

C B HALF-CELL 

BH(1)  > BB(1) 

A (1)  - RB  (1)*BB(1) 

BAX  = H-1 

DO  20  1-3, BAX, 2 

BH(I)  « BB(I)  - B(I-1) 

A(I)  - RB(I)»BB(I)  - B (I-l)  *8(1-1) 

20  COMTIHUE 

C NOB,  DETERBIHE  FLOBS  AMD  POBOSITIES  OF  A AND  B SEGS 
C DEPEHDS  ON  NA  AND  NB 

IF  (BA  .LE.  MB)  GOTO  500 
C THIS  SECTOR  FOB  HA  GT  NO 
C FLOR  OISTBIBOTION  AND  POBOSITI 
El  - 0.0 
SOH  - 0.0 
DO  100  1-1, H, 2 
El  * El  ♦ A (I) 

100  SOB  - SOH  ♦ A (I)  »SQBT(BH(I)  ) 

DO  no  1=1, H, 2 

Q(l)  = A (I)  *SOHT  (BH(I)  ) /SOH 
110  CONT3NOB 
C B SEGBEIT 

E2  = 0.0 
SOH  » 0.0 
HI  = H-1 
DC  120  1=2, HI, 2 
E2  = E2*A(I) 

120  CCBTIHDE 

XX  = A(H-1)  *SQHT(  BH(H-I)  ) 

II  = A(N-3)  »SflBT  ( BH(H-3)  ) 

Q(N-1)  = Q(H)  ♦ Q(H-2)  •XX/(11*II) 

XX  ' A (2)  *SQBT  (BH  (2)  ) 

II  = A (4)  •SQBI(BH  (4)  ) 

0(2)  = Q(1)  ♦ a(3)»XX/(II*II) 

HAX  = H-3 

C DON'T  HEED  FOLLOBIBG  IF  H .LB.  5 
IF(H  .LE.  5)G0T0  1000 
DC  130  1=4, HAX, 2 
XX  = A (I)  *SQBT  (DM  (I)  ) 

II  = A (1-2)  »SQHT  (BH(I-2)  ) 

ZZ  = A(I»2)  *3081(88(1*2)) 

0(1)  = Q(I-1)»XX/(XI»II)  ♦ Q (1*1)  *XX/ (XX*ZZ) 

130  COHTINOE 
GOTC  1000 
500  COHTIHUE 
C THIS  SECTICH  FOR  NA=NB 
C FLOH  DISTBIBOTION  AND  POBOSITI 
C A-SEGHEHT 

SOB  = 0.0 
El  = 0.0 
DO  510  1=2, H, 2 
El  = B1  * A(I) 


DORO  16  10 
CUEO  1620 
DOHO  1630 
DU80  1640 
DOEO  1650 
DOHO  1660 
DOH01670 
COHO  1680 
DOH01690 
COHO  1700 
DOEO  17  10 
DOaO  1720 
DOHO  1730 
D0H01740 
COBO  1750 
CDF01760 
COHO  1770 
D0B01780 
DOHO  1790 
COR01800 
CDH01810 
DOE01820 
EDBO  1830 
COEOiaOO 
COBO  1650 
DOHO  1860 
DOHO  1870 
CORO  1880 
CORO  1890 
DOHO  1900 
COH01910 
COHO  1920 
D0EO1930 
COHO  1940 
DORO  1950 
COH01960 
DORO  1970 
CORO  1980 
DOHO 1990 
D0R02000 

0aRO20  10 
D0RO2020 
DOR02030 
DORO204O 
COH02050 
C0H02060 
COH02070 
CDBO  2080 
CUH02090 
C0R02100 
C0H021 10 
CDR02120 
CDH02 130 
COE02140 
CUH02  150 
C0R02160 
C0H02170 
D0H02180 
EOH02190 
E0R02200 
C0B022  10 
DOH02220 
C0H02230 
CUR02240 
CDH02250 
DUR02260 
C0H02270 
D0RO228O 
C0H02290 
CUR02300 
CUH02310 
DORO2320 
CDE02330 
CUR02340 
DOEO2350 
C0H02360 
EUR02370 
CDB02380 
DDR02390 
CDB02400 


u u 
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510  SOU  = son  * A (I)  •SQBTIfla  (I)  ) 

DO  520  1=2, N, 2 
Q(1J  = A (I)  »SQHT  )/S0H 

520  CORllNOB 
C B-SBG 

E2  - 0.0 
SOB  > 0.0 
HI  = N-1 
DO  530  1=1, N1, 2 
B2  = B2»A(I) 

530  COBTIBOE 

TBI  SOeCITIDIBG  BASED  ON  SQBT(BB) 

— INSTEAD  OF  A»SQBT(BH) 

XX  » I (N-1)  •SQBT  (RB(N-  1)  ) 

IT  = A (N-3)  *SQBT  (BH(N-3)  ) 

0{N-1)  = g(N)  ♦ Q (N-2)  •XI/ (Xlf  II) 

XX  » A(1)*SQBT  (BH  (1)  ) 

II  • A(3)*SQBT(BH(3)) 

Q(1)  - g(2)*II/(XZni) 

BAX  » H-3 
C DON'T  NEED  FOLLOHINCIF  N .LB.  4 
IF(  N .LE.  4)  GOTO  1000 
DO  540  I=3,nAX,2 
XX  » A (I)  ‘sgai  (HH  (I)  ) 

II  = A (1-2)  »SQBT  (BR(I- 2)  ) 

Z2  » A(I*2)  •S0BT(RU(I*2)) 
au)  * g (1-1) *xx/ (xx*ti)  ♦ g (i»  1)  »xx/ (xx*zz) 
540  CONTINOB 
1000  BBTDBN 
END 
C 

SOBBOOTINE  TOID (NDII.O TDP, HHOl , EB02, SBAR, EPS) 
ZNDI1  « NDII 

DBIB  « (HH02  - BH01  ) /ZNOII 
ROlO  > BB01 

FOLD  = RB01*EF0BC (BH01 , DTDP,  EBAB) 

SOB  = 0.0 
DO  100  I»1,B0IT 
RNEN  • ROLO  • DELS 

FHEB  » HNEB  • EFOBC(BHEB,  DTDP,  EBAB) 

FIBT  « 0.5*DELB*  (FNBi  » FOLD) 

SOB  « SOB  ♦ FINT 
FCID  = FREW 
BOLD  = RNBI 
100  COTINOE 

?TOT  = RH02*BH02  - RBOI'BBOI 
EPS  = SOB 

EPS  = 2,0»EPS/VTOI 
BETOEN 
END 
C 

FONCTION  EFONC(B,  DTDP,  EBAB) 

PI  » 2.0»ABSIN  (1.0) 

A 1 = 0.3463 
A2  - 0.4273 
A3  = 2.450S 
A4  = 2.2011 
X • 0.5»DTDP*  (1.0-B) 

IF(  X .LT.  0.25)  GOTO  100 
II  = COS(  (A3»X-A4)*PI  ) 

II  = A1*II/EXP(A2»X) 

EFOHC  = (1.0-BBAB)  »II  ♦ EBAB 
GOTO  1000 
100  COBTIHOE 

C THIS  SECTION  FOR  'RAIL'  REGION 
IT  = 7.0»X«I/9.0 
II  = 4.5»(X-II) 

11=  (1.0-EBAB)  *11 
EFONC  = 1.0-II 
1000  REIORN 
END 
C 

SDBBCUTIHE  FI  ND  E ( R , D 1R  , F) 

C DIRECT  SEARCH  FOR  BOOT  OF  POLINOHIAL. 

C BILL  IIBIT  TO  F EETBEEN  1 AND  5 
C BILL  SEARCH  IN  INCREBENTS  OF  0.01 
DEIE  = 0.005 
F = 1.0-DELF 
? = f * DELF 
IF  (F  .LE.  5.0)  GOTO  20 


0OB02410 
IDB02420 
D0EO243O 
D0802440 
CUE02450 
C0N02460 
DOR02470 
DON02480 
DOH02490 
EON02500 
DUH025 10 
DnH02520 
DnB02530 
DUN02540 
D0B02550 
C0B02560 
DOE02570 
C0n02580 
D0R02590 
10802600 
D0R02610 
D0N0262C 
E0H02630 
CUR02640 
DOB02650 
EUN02660 
DUN02670 
[0802680 
DOB02690 
DDB027Q0 
CUH027 10 
D0B02720 
DOB02730 
DUE02740 
DDH02750 
DOH02760 
DOB02770 
DUE02780 
CUB02790 
COB02800 
D0B02810 

can02820 

DUR02830 

DOB02840 

D0802850 

COnO2860 

DD802370 

CU8O208O 

D0802890 

DO802S00 

C0802910 

CU802920 

CDB02930 

CO  802940 

CD802950 

C0802960 

D0802970 

C0802980 

D0E02990 

CUn03000 

E0803010 

C080  3020 

CU803030 

CIIBO  3040 

CU803050 

CD80  30  60 

CD803070 

E0803080 

C0803090 

C080  3 100 

CUE03110 

CU803  120 

00803130 

D0803  140 

D0803150 

D0803  160 

CDR03170 

C0B03  180 

CDB03190 

C0803200 


10 
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c 

CAH'T  FIBD  BOOT  OF  Eg’N;  ABOBT  FBOOBAB 

D0r03210 

HRn£(6,  15)  M,01R 

CUB03220 

15 

POBflATP  •••••  PGfl  AOOBTED  IB  SOBBOUTINB  FIHDF.*,/, 

C0E03230 

1 'IIO  ROOT  TO  POLIMOBIAL  FOB  B»»,I3,»  D 1/ B»  • , B 1 1 . 4) 

C0E032«0 

STCt 

0I)B032S0 

20 

sun  « 1.0 

DUB032G0 

TEBH  « 1.0 

EUB03270 

DO  30  1*2, N 

C0E032B0 

TEBH  - TEHB  • F 

CUHO32S0 

SOB  « son  ♦ TEBB 

C0F03300 

30 

COBTINOE 

CUH033 10 

TEST  * 1.0/D1B 

CUP03320 

IF  (SON  .GB.  TEST) GOTO  100 

C0M03330 

GOTO  10 

DUB033UO 

100 

RETOBB 

CIJH03350 

EHC 

DUE03360 

c 

EUH03370 

SQBFCOTIRE  BIX  1 (B  A,  R8,  Q,  H) 

Duno33eo 

c 

TBIS  SDBBOOTIBE  DSTEBBIRES  REIGBT  FACTOBS  FOB 

CUn03390 

c 

BIIIHG  AT  ABBOLaS  IRLBTS 

DDE03I100 

DIREBSIOB  g(100)  ,«(100) 

00003410 

B > IA*BB 

DOB03>I20 

IF  (BA  .LE.  BB)  GOTO  20  0 

CUB031I30 

c 

THIS  SICTI08  FOB  RA  GT  MB 

E0R03440 

c 

N£ED  BE1G8TS  FOB  ODD  M0B8E8BD  SEGHENIS 

IOB03450 

H (B)  >0.0 

COBO  3460 

i(l)  » 1.0 

COH03470 

B2  « B-2 

C0BO3480 

DO  10  I>3,B2,2 

EDB03490 

11  » B2  - I ♦ 3 

DOR03500 

B(I1)  » ( Q(IU1)  - (1.0-M(I1»2))  »Q(I1*2)  )/Q(I1) 

EUB035 10 

10 

CCBTIBOE 

EOE03520 

GOTO  1000 

E0BO353O 

200 

CCBTIBOE 

EUn03S40 

c 

THIS  SECTIOH  FOB  NA  » MB 

EUB03550 

c 

NEED  HEIGHTS  FOB  BfBB  BOHBEBBD  SEGBEMIS 

EDH03S60 

B (B)  > 0.0 

EUB03570 

B2  » B-2 

EaH03:ec 

DO  300  I>2,B2,2 

0UB03590 

11  • 2-I+H2 

EUB03600 

B(I1)  » ( Q{11»1)  - (1.0-«(I1*2))  •Q(I1*2)  )/Q(I1) 

0nR03610 

300 

COBTIBOE 

CUB0362a 

1000 

CCBTIBOE 

DDE03630 

BETOBB 

E0B03640 

EBC 

CUB03650 

SOBBOOTINE  alI2(ITHANS,HA,NB,Q,g,C) 

CDPO  3660 

DIBFBSION  a ( 100)  ,0  (100)  ,C  (100) 

CUfl0  3'67  0 

C 

THIS  SOBFOUTIME  DETEBflIMSS  ANNOLOS  IRLET  CO MC EHTRATIO NS 

C0B03680 

C 

ITBAHS*0»»>A  TO  B IHANSITIOR 

EUe0369C 

c 

>1»>B  TO  A THANSITI08 

CUB03700 

B > BA>NB 

EUB037 10 

IF(BA  .LE.  BB)GCTO  500 

EDE03720 

c 

TBIS  SECTIOB  FOB  BA  GT  SB 

EUB03730 

IFUTBARS  .RE.  0)  GOTO  200 

D0P03740 

c 

A 

TO  8 TBAMS 

C0B03750 

c 

B' 

S ABE  ETEH  HOBSEBED  S08SCBIPTS 

E0E03760 

R1  * R-1 

EUB03770 

DO  100  1*2, HI, 2 

EDEO  3790 

C(l)  « (1.0-H(I»l))*Q(IM)*C(Ifl) 

EOS03790 

C(I)  » C(I)  ♦ H (1-1)  *0  (1-1)  ♦C(I-l) 

E0EO3800 

C(I)  * C(I)  / g(i) 

COHO  38  10 

100 

CORTIRDE 

801103820 

BETUBH 

CDf03830 

200 

COKTIROE 

00803840 

C 

B 

TO  A TBARS 

0080  3050 

C 

A* 

S ABE  ODD  HOBBEREO  SOBSCBIPTS 

00803860 

C(1)  • C(2) 

0080  3870 

C (H)  = C (N-  1) 

00803880 

H2  * R-2 

00803890 

DO  300  1*3, M2, 2 

COB039CO 

C(I)  * {1.  0-8  (I)  ) ♦Cd- 1)  ♦ I(I)*C(I^1) 

00803910 

300 

CONTINUE 

00803920 

BEIUEN 

00803930 

500 

COIXINOE 

00803940 

C 

Til 

IIS  SECTICH  FOB  HA»NB 

00803950 

IF(ITRANS  .NB.  0) GOTO  700 

00803960 

c 

A 

TO  B IRAHS 

00803970 

c 

B* 

S OCO  NUBBEBED  SOBSCBIPTS 

00803980 

C(1)  » C(2) 

00803990 

HI  ■ R-1 

00804000 
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DO  600  1=3, HI, 2 

CUROdO  10 

C(I)  = (1.0-9  (I+1)  )»Q(I*n 

D0R0R020 

C(I)  = C(I)  ♦ 9(1-1)  (1-1)  ♦C(I-I) 

CUflOROJO 

C(l)  = C(I)  / Q(I) 

DOROHOIIO 

600 

COmiNOB 

CDROaO'O 

BBIQBH 

CMHO  A060 

700 

CQHTIRUE 

DnR0H070 

C 0 

TO  A IBANSIIIOH 

cunoqoeo 

C A'S  tlZt  aaNBEBSD  SOBSCBIPTS 

cocoao90 

C(I)  * C(M-1) 

DDHOmOO 

H2  = H-2 

coRom  10 

DO  600  1=2, H2, 2 

COBOqi20 

C(I)  = I(1)*C(I>1)  ♦ ( 1.0-B  (I)  ) ♦C(I-l) 

C0B04130 

300 

COHTINOB 

ooROimo 

BBT06B 

DDRORISO 

SRO 

cuBoaieo 

f • 
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SBBBOUTiSB  ANS(IIA,HB,a,a,A,B1,E2,BA,aB) 

cua04  170 

DlflEBSICB  BA  (100)  ,B3(100) 

C0e04180 

DIBENSIOH  Q (100)  , a (100)  , H H ( 1 00) , A ( 10 0) 

CUB04190 

c 

CALC  BIOBAOLIC  BADll,  ABO  ABEAS 

rOE04200 

If  > HA  ♦-  RB 

CUB042 10 

c 

A HALP-CBLL 

D0B04220 

DO  10  I-2,K,2 

CUR04230 

8H(I)  - B(I)  - BA(I-I) 

CON04240 

A(I)  - B(I)»B(I)  - BA(l-l)  »B1(I-1) 

CUB04250 

10 

COETIROE 

D0E0Q260 

c 

B BALE-CELL 

DDB04270 

BH(1)  > BB(1) 

CUB04280 

A(1)  » BB(1)»BB(1) 

0ORO429O 

«A1  * H-1 

COR04300 

DO  20  I»3,BAX,2 

DD804310 

BH(I)  - BB(I)  - B(I-1) 

CUR04320 

A(l)  =•  BB(I)»BB(I)  - H (1-1)  ABd-l) 

DDB04330 

20 

COBTINOB 

CDB04340 

c 

NOB,  DE1BBRIN8  ELOBS  AND  BOBOSITIBS  OE  A AND  B 

SEGS 

DOB043S0 

c 

DEPENDS  01  NA  AND  NB 

C0B04360 

D0B04370 

c 

ASSOBE  MA  « BB 

COB04380 

c 

D0B04390 

c 

THIS  SECTICN  EOS  NA=NB 

CUH0Q400 

c 

ELOB  DISTBIBOTIOI  ABO  POBOSITI 

caao44io 

c 

1-SBGBBNT 

COB04420 

SOB  - 0.0 

D0B04430 

El  • 0.0 

00009440 

DO  510  1-2, a, 2 

D0N04450 

B1  - B1  ♦ A(I) 

COB04460 

510 

SOB  - SOB  ♦ A (1)  »BH(I)  *Hfl(l) 

OOBO4470 

DO  520  1=2, N, 2 

CU0O448O 

Q(l)  » A(I)»BH(1)»HH(I)/S0H 

D0B04490 

S20 

CCBIINDB 

COB04S00 

c 

B-SEG 

DOR04510 

c 

OSE  EACIOB  TO  ACCOONT  FOB  BSIBO  BESISTANCES  AT 

BALL  AND  C.L. 

C0804520 

E2  « 0.0 

CDB04530 

SOB  « 0.0 

CDB04S40 

N 1 • B- 1 

DUE045S0 

DO  530  1-1,11,2 

CDB04S60 

E2  - E2»A(I) 

C0B0457Q 

5J0 

CONTINOE 

CORO4S0O 

c 

BALL  BESISTAICES 

DUB04590 

EACTCB  - 1.0 

CUB04600 

XI  - A(B-1)»Ba(B-1)»8H  (N-1) 

DDB04610 

TI  - A (H-3)  *88  (N-3) -RB  (N-3) 

cun04620 

STDK  = Q(N-2)  * IX/(XX  ♦ EACTOB»II) 

00004630 

Q (N-  1)  = Q (N)  ♦ STUFF 

CUR04640 

XX  = A (N-3)  *88  (N-3)  »RII  (N-3) 

C0R04650 

TI  = A (N-5)  *88  (N-5)  *RU  (H-5) 

CUR04660 

Q(N-3)  = 0(8-2)  - STDFF  ♦ Q (H- «)  »XX/ ( XX  «•!  I) 

CUR04670 

c • 

CENTERLINE  BESISTANCES 

cuHoqeeo 

PACTCR  » 1.0 

CU0O469O 

XX  - A(  1)  *RH(  1)  *88(1) 

CUB047aO 

II  - A (3)  »BB  (3)  »BR  (3) 

C0N04710 

Q(l)  ” 0(2)  *XX*FACTOH/(XX*FACTOB  ♦ IT) 

CUH04720 

XX  = A (3)  *88  (3)  *88  (3) 

C0E04730 

II  » A (5)  *88(5)  *88  (5) 

COB04740 

0(3)  - 0(2)  - 0(1)  ♦ Q(4)*XX/(XX*II) 

D0B04750 

BAX  « B-5 

DUB04760 

C CAll'T  HAHDLB  ABTTHIMG  LESS  TEAM  8 HADIAL  DITS.. 

D0B04770 

IE  ( N .LE.  6)  GOTO  550 

cono47eo 

DO  540  1=5, BAX, 2 

D0S04790 

XX  » A(I)  *88(1)  *88(1) 

CUR048Q0 

II  = A(I-2)»BR(I-2)*8H  (1-2) 

ZZ  = A (1*2)  *88  (1*2)  *88  (I»2) 

DUBO401O 

540 

550 

560 

1000 


0(1)  . 
COmiHOE 
GOTO  1000 
CONTINUB 
MfllTE  (6,560) 
fORf!AT(*..,.. 
BBIQBR 
EMO 


.PGfl  ABOar  IH  -ANS-.  B .LI. 


CU604620 

COBOQ03O 

cuBoaeqo 

DUB05850 

COeOQ860 

COiO407O 

CUBO4O0O 

CUnO£)09O 

C0B0Q900 
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Transient  Mass  Dispersion 

General  program  flow  builds  a time  step  loop  around  the  steady- 
state  calculations.  Concentration  becomes  a triple— subscripted  array 
as  explained  in  the  listing.  Additional  subroutines  are: 

1.  STEP — shifts  delay  time  arrays; 

2.  DELTA — determines  number  of  delay  elements  (time  steps) 

NSUB  (I)  corresponding  to  each  radial  plug. 

Variables  (TDEAD(I)  correspond  to  delay  times.  Additional  information 
is  provided  by  the  comments  contained  within  the  listing.  All  time 
variables  are  scaled  by  bed  hold-up  time  (ignore  any  spurious 
comment  statements  in  the  listing  to  the  contrary) . 


u u u u 
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C PHOGaAB  BABB  'PLS73  POBTaAN' 

C 

c 1HIS  ana  poa  data  op  caidns  ahd  pbausbitz 
c 

C LAST  UPDATI/OSa  OB  30  APa  85 

c 

C IRANSIEBT  AAP  BODSL 
C SOBSCalPTS  OB  C(I,J,K)  — 

C 1*BA01AL  POSITIOB 

C J = AAIA1.  POS  (A/B  CELL  BO.) 

C K=TIBE  STEPS  (P08  DEAD  TIBS  FUBPOSES) 

COBBCN  /QBE/  B A (2  1 ) , HB  (2  1 ) , B (20 ) 

COBBCB  /TBO/  0(20),  A(20),  *(20) 

COBBCB  /PIPE/  0(20,118,50),  CIB(20,118) 

COBECS  /POOH/  T0EA0(20)  ,BSUB  (20) 

DIBERSIOB  DaBBI(20),ISL(20)  , EPS  (20) 

lOPT  »0 — PBIBT  OBLI  IPG  CCBC  AT  EACB  TPBIBT 

-ABITHIEG  ELSE,  PBIHT  EPEBITHIHG  AT  EACH  TPBIBT 

DATA  lOPT  /O/ 

C 

C 

c 

c 

C THIS  SECTIOB  SIZES  ABBOLI,  CALCS  PLO«S,  PELCCITIES,  ETC. 

C 



c 

c CALC  AREAS  BASED  CB  OTDP  ABO  EA 
DTCP  « 15.9 
DO  10  1=1,20 
10  i(I)  • 20.0 

C NO*,  THI  ASSIGNING  NO.  CELLS  BASED  ON  COBB  ELATION .. . 

Z = 0IDP/0.S16  * 0.5 
N » Z 
Z > B 
Z • 0.5*Z 
BB  = Z 
BA  « B-BB 

C BESTBICT  TO  EPEB  NO.  SEGBEBTS 
IP  (BA  .GT.  BB) NB  = BA 
S = NA»SB 

9BITE  (6,3020)  DTDP,  N,  NA,HB 
C SIZE  BACII 

C SET  OP  TO  DO  INCBEASING  EA'S... 

C SIZE  BVENLI  SPACED  RADII 
ZS  = B/2 
DEIH  = 1.0/ZB 
R(2)  > DELB 
DO  80  1=4, N, 2 
R(I)  » H(I-2)  ♦ DELB 
80  COBTIBUE 

C DETEBBINE  EPS  POB  EACH  SEGHEBT... 

EEAR  > 0.360 

C POID  ERACTIOB  OP  PIBST  SEGBENT 

CAIL  TOID(100,0TDP,0.0,B(2)  ,EBAB,E1) 

1 = 2 

BBITI(6, 3010)1,11 
C 

c »•*»••♦*»»  TEST — LOBEB  PELOCITI  BI  HOLT  TIBES  POBOSITT  ***** 
EPS(2)  = El 
BPS(1)  = El 

100  BA(1)  = ( 1. 0-El)  =8  (2)  »B  (2) 

BA  ( 1)  = S58T  ( BA  ( 1)  ) 

BB  ( 1)  = E1  = H (2)  ‘R  (2) 

BB(1)  = SQBT(  RE(1)  ) 

BAl  = B-1 
DO  120  1=3, BAX, 2 

C POID  PBACTIOBS  OF  BADIAL  CELLS  BASED  CH  CCHREIATICB 
BHC2  = R (I*  1) 

RBO  1 = R (I-  1) 

CALL  POID (100, DTDP.BHO 1, aH02,EBAH, IHAT) 

I*  = in 

NBITE (6,3010) I*,EBAT 
EPS(I*)  = EBAT 
EPS  (I)  = EHAT 


PISOOO 10 
EIS00020 
PLS00030 
PLS00040 
PIS00050 
PIS00060 
P1S00070 
PLS00080 
PIS00090 
PLSOO  100 
F1S00110 
PLS00120 
PLS00130 
PLSOO 140 
PLS00150 
PLSOOieO 
PLS00170 
PLSOO 1B0 
PLS00190 
PLS00200 
PLS00210 
PLS00220 
ELS00230 
P1S00240 
FIS00250 
PLS00260 
-FIS00270 
PLS00280 
FLS00290 
FLS00300 
-FLS00310 
FLS00320 
FLS00330 
FLS00340 
FLS00350 
PLS00360 
ELS00370 
PIS00380 
FLS00390 
PLS00400 
FLS00410 
PLS0C420 
FLS00430 
PLS00440 
FIS00450 
PLS0Q460 
FIS00470 
FLS00400 
FIS00490 
PLS00500 
EIS005  10 
FIS00520 
FLS00530 
FIS00540 
PLS00550 
ELS00560 
FLS00570 
PLS00580 
FLS00590 
ELS00600 
PLS006 10 
PLS00620 
PLS00630 
PLS00640 
PLS00650 
ELS00660 
PLS00670 
ELSOO60O 
PLS00690 
PLS00700 
PLS007 10 
FLS00720 
PLS00730 
FIS00740 
PLS00750 
FLS00760 
PLS00770 
PIS00780 
PLS00790 
FLS00800 
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IX  = - a (1-1)  ‘H  (1-1) 

(I)  = (1.  0-EBXT)  »XI 
a*(I)  = B (1-1)  »B  (1-1)  ♦ BA(I) 

BA(I)  = S(JBT(  RA(I)  ) 

BB(I)  » EBAl  • XX 

BBd)  - B(I-1)»8(I-1)  ♦ BB(X) 

RB(I)  « SQBT(  BB(I)  ) 

120  COITIBOE 
BAX  » N-1 
BBITI(6,3150) 

BBIIE  (6,3160)  (BA  (I),  a (1*1)  .1  = 1,  BAX, 2) 

KBIT  I (6,3160)  (BB  (I),H(I*1)  ,1-1,  BAX,  2) 

CALL  ABB (BA,aB,E1,Z2) 

B » BA4BB 

CCC  DO  200  I»1,B 

C200  7El(I)  - Q(I)/A(I) 

SIEPtE  BATIO  or  EPS/EDAB.., 

DC  210  1-1,1  * 

CCC  TEl(I)  » EPS(I)/B1 

CCC  ?El(I)  = TBL(I)  •fH(l) 

C b*ck  to  old  BAX 

7EL  (1)  = E1*Q  (1)  /A  (I) 

210  COITIBOE 
C BBITE  BESOIIS 

BBITl (6,3050) 
ir  ( BA  .GT.  BB)  GOTO  390 
DO  300  1-2,8, 2 
J = I-  1 

BBITX  (5,3070)  El, E2 
GOTO  410 
390  COITIBOE 
BAX  • B-1 
DO  400  l-1,aAl,2 
J ’ 1*1 

BBIT I (6,30  60)  B,  A ( B) , Q(  B)  , 7 BL  (B) 

*8111  (6.3070)  El, E2 
410  COITIBOE 

BBITE  (6,3150) 

BBITE  (6,3160)  (B  (I)  ,1=1  ,B) 

CALL  BIX1(BA,BD) 

WRITE  (6,3170) 

WaiTE  (5,3160)  (W  (I)  ,1  = 1 ,B) 

C 

C 

C THIS  SECTIOB  TABES  CABB  OF  TIHB  STEPS,  ETC. 

C 

c 

DURE  - 5. OB-4 
THAI  » 1.  13 
C SET  DP  POLSB  WIDTB 

WIDTH  - THAX7DT1HE 

C — BOTE  THAT  AB07E  EBSOBES  STEP  IBPOT 

TPEIBT  = 0.005 
HPBIAT  - TPBIBT  / DTIRB 
aaiTE  (6, 1015)  DIIHE 
1015  F0BBAT(2X,'DT1HE  -*,E1  1.4) 

BZHAX  = 117 


C 

C CALC  DEAD  TIBBS  BASED  OB  7EL0CIIIES. 
C IB  1BTEB7ALS  OF  HOLD-UP  TIBES. 

C 

X7Z  = BZHAX 
DO  1020  11=1, B 

CCC  TDEAr(II)  = 1.0  / (2.0  • ITZ  • El 
C USE  BEAL  (DIHEBSIOBAL)  TIRE... 

C TIHE  IB  SEC,  DT  ABD  DP  IB  IBCHES 

C aiOT  IB  CO.IB/SEC 

CCC  QTCT  = 11.55  » 2. 0/3.0 

CCC  DP  = 0.  75 

CCC  DT  = DTDP*DP 

CCC  CL  - 0.816  » CP 

CCC  AXS  * 3.  14  * DT  • DT  / 4.0 


FLS00810 
PLS00820 
PLS00830 
PLS00840 
PLS00850 
PLS00860 
PLS00870 
EIS00880 
PLS00890 
PLS00900 
PLS009 10 
PLS00920 
PLSOC930 
PLS00940 
PLS009SO 
PLS00960 
PLS00970 
PLS00980 
PLS00990 
PLSO  1000 
PIS01010 
PLSO  1020 
FIS01030 
PLSO  1040 
FISO  1050 
PLSO  1060 
ELS01070 
PLSO  1080 
F1S01090 
PLSO  1 100 
FLS01110 
FLSO  1 120 
FLS01130 
FLSO  1 140 
FIS01150 
FLSO  1 160 
ELS01170 
FLSO  1 180 
PIS01190 
FLSO 1200 
FLS01210 
FLSO  1220 
FLSO  1230 
FLSO  1240 
FLSO 1250 
FISO 1260 
FLSO 1270 
FLSO  1280 
FLSO  1290 
PLSO  1300 
E1S01310 
PLSO  1320 
FLS01330 
PLSO  1340 
FLS01350 
PLSO  1360 
FLS01370 
PLSO  1380 
FLSO  1390 
FLSO  1400 
FLSO  14  10 
FLSO  1420 
FLSO  1430 
FLSO  1440 
FLS01450 
FLSO  1460 

NOTE — IHET'BE  FLS01470 

FLSO  1480 
FLS01490 
PLSO  1500 
FLSO  1510 

• VEL(II)  ) FLS0152Q 

FLSO  1530 
PLSO  1540 
FLS01550 
PLSO  1560 
FLS01570 
PLSO  1580 
FLSO  1590 
FLSO  1600 
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CCC  TDIAE(U)  = Cl  * AIS  / ( 7EL(II)*QTOT  ) 

EISO  16  10 

IIZ  » BZnAX 

PLSO  1620 

TDEAC(II)  - 1.0/(  TEL(II)  •2.0HIZ  ) 

EISO 1630 

1020  COBTINUB 

PLSO  1640 

CALL  DEITA(DTIBB,  B,  BA,  BB,  JHAX,  HCHG) 

EISO 1650 

iaiTl  (6,  1016)  (I,TDEAD(I)  ,»S0E  (1)  ,1-1  ,B) 

PLSO  1660 

1016  POIflAT  (I5,2X,E11.4,I5) 

EIS01670 

IFLAG  - 0 

PLSO  leeo 

C iriAG  -0— >IBLET  CONCH  = 1.0 

PLSO 1690 

C .HE.O— >IHLE'I  CONCH  -0.0 

PLSO  1700 

C 

EISO  17  10 

CALI  STEP  (N,HA,Ha.TiaE,irilG) 

EISO  1720 

TIBI  » 0.0 

ELS01730 

CCC  NSB  - JBAX 

ELS01740 

BOOR1  - 0 

PLSO  1750 

IPBIIT  - 0 

ELS01760 

JBAX  - NZHAZ 

PLSO  1770 

1050  CCHTXNOZ 

PLS017S0 

c poa  lEsiiHG,  aaxTE  bed  inlbt  cobchs 

PLSO  1790 

C ASSOBE  CHLZ  BTEB  RG.  RADIAL  DI71SI0HS 

ELS01800 

CCC  RRITB (6,3270) 

PLSO 1810 

CCC  DO  1051  1-2, R, 2 

ELS01B20 

CCC  ISOB  - R50B(I) 

PLSO  1830 

CCC  HHI1I(6,3160)CIR(I,1),  C(I,1,ISDB) 

ELS01840 

C1051  CCRTIBOB 

PLSO  1650 

C SET  OP  FOLSB  OH  STEP 

PLSO I860 

XP(TIBE  .GT.  RIDTa)IPLAO  - 10 

PLSO  1870 

DO  1100  J»1,JBAX 

PLSO  1880 

C B INLETS— >A  OUTLETS,  BTC. 

PLSO 1890 

C OOTLETS— >SUDSCHIPT=  1 ; I HLBTS==> SO  BSCB I PT- NSOB 

PLSO  1900 

C TBARSTEB  TO  DOBBI  AHRAI  TO  USE  SOEBOUTINB 

PLSO  1910 

C A TO  E TBAHSITIOB... 

PLSO  1920 

DO  1060  I-I,N,2 

FLS01930 

C THIS  PABT  HA-NB 

PLSO  1940 

lA  - 1*1 

ELSO  1950 

IB  - I 

PLSO  1960 

1060  DOBBI(IA)  - C(IA,J,1) 

ELS01970 

CALL  HIX2(0,RA,BB,D0Bni) 

PLSO  1980 

C TBANSPEB  TO  CIR  ABBAT 

EISO 1990 

DO  1070  1=1, H, 2 

PLS02000 

C THIS  PABT  RA-BB 

PLS02010 

lA  « !♦! 

PLS02020 

IB  — X 

ELS02030 

1070  CXR(XB,J)  - DOBHT(XB) 

PLS02040 

C B TO  A TBARSITXON 

ELS02050 

DO  1080  X=1,N,2 

PLS02060 

C TBXS  SCT  SA-BB 

ELS02070 

lA  - 1*1 

PLSO2O0O 

IE  = I 

ELS02090 

1080  DDBB1  (IB)  - C (IB,J,  1) 

PLS02 100 

CALL  BXX2  ( 1,  BA,  BB,  DOBH  I) 

FLS021 10 

C BACA  TO  CXH'S 

PLS02 120 

DO  1090  X-1,B,2 

ELS02130 

C BA  - HB 

PLS02  140 

XA  - X+1 

PLS02150 

IB  - X 

ELS02 160 

1090  CXR(IA,a*1)  - DOBBI(IA) 

ELS02170 

1100  CCHTXNOE 

ELS02  180 

C SBXET  ABBAIS  EOB  DEAD  TIBS 

ELS02190 

C DON’T  POBGET  TO  CHECE  IP  BE  REED  POLSB  INPUT 

PLS02200 

IP  (XPLAG  .EQ.  0)GOTO  1 110 

FLS02210 

CALL  STBP(H,NA,BB,TIflE,XELAG) 

PLS02220 

1110  CCITXHOE 

EIS02230 

DO  1200  J=1,JBAX 

PLS02240 

DO  1200  1=1, H 

ELS02250 

ABAI  = RSOB(X)  - 1 

PLS02260 

DO  1150  A-1,KHAI 

FLS02270 

K1  - K*1 

PLS02280 

C(X,J,A)  - C(X,J,A1) 

ELS02290 

1150  CORTINUE 

PLS02300 

C NOB,  XBIETS  GO  XIIO  LAST  POSXTICH 

ELS02310 

K1  * NSOB(X) 

FLS02320 

C (I,J,A1)  - CXB (I,J) 

FLS02330 

1200  COBTIHOB 

PLS02340 

C OBLX  BBITE  RESDLTS  AT  DESXHBD  XBTEB7ALS 

ELS02350 

XPBIBT  - XPBXHT  ♦ 1 

PLS02360 

XFdPHXBT  .LT.  BPiXNT)  GOTO  1350 

ELS02370 

XPBXHT  - 0 

PLS02380 

C CHECK  If  BB  BBITE  E7EBTTHXHG  OB  OHLI  A7G. 

ELS02390 

IP  (XOPT  .EQ.  0)GOTO  13  05 

PLS02400 
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C A BALf-CBlL 

DO  10  1=2,11,2 

BH  (1)  « R (I)  - BA  (I-I) 

A(l)  = B(I)»B(IJ  - HA(I-I)  »BA(I-1) 

10  CORTIBDE 

C B IIALf-CILI. 

BH)1)  > RB(1) 

A { 1>  - HB(1)  *BB  (1) 

BAI  « ll-l 

DO  20  I«3,BAX,2 

BH  (IJ  =«  BB  (I)  - R (I-l) 

A(J)  = BB(I)»BB(I)  - a (I-l)  »B(I-1) 

20  CCBTlNaE 

C NOB,  DITERHIRB  PIOBS  AND  FOBOSIIIES  OP  A AND  B SECS 
C DEPENES  ON  NA  AND  BB 

IP  (NA  .IB.  NB)  GOTO  50  0 
C THIS  SICTON  POB  NA  GT  NB 
C Pica  DISTBIBOTIOI  AND  POBOSITT 
El  a 0.0 
SOB  - 0.0 
DO  100  Ial,N,2 
El  • B1  ♦ A (I) 

100  SON  a SOH  ♦ A (I)  •SQaT(BH  (I)  ) 

DO  110  1=1, N, 2 
0(1)  » A (I)  •SQBT  (HH(I)  )/SUH 
110  CCATINOB 
C B SEGNEIT 

E2  a 0.0 
SOB  a 0.0 
B1  a B_1 
DO  120  1=2, N1, 2 
E2  a !2  + A(I) 

120  COBIINOE 

XX  a A(B-1)»SCBT(  BH(N-I)  ) 

IT  a A(N-3)»SQBI(  HH(N-3)  ) 

0(1-1)  a 0(H)  ♦ 0(N-2)  *IV(II*II) 

XX  a A (2)  *SQHT  (BH  (2)  ) 

II  a A («)  »SORT  (BH  (l») ) 

0(2)  a 0(1)  t Q(3)»XX/(XXPTI) 

BAX  a N-3 

C DON'T  NEED  POLIONING  IP  N .18.  5 
IP(N  .18.  5)  GOTO  1000 
DO  130  I=H,HAX,2 
IX  a A (I)»SOBT  (BH  (I)  ) 

II  a A (1-2)  ‘SOBT  (BH  (1-2)  ) 

ZZ  = A (1*2)  »SCBT  (BH(I*2)  ) 

0(1)  - Q(I-I)  •1I/(IX»TI)  ♦ 0 (I*  I)  •XX/ (XX'ZZ) 

130  CC8TIN0B 
GOTO  1000 
500  CCBTINOE 
C THIS  SECTION  POB  NA=NB 
C Pica  DISTBIBOTION  AND  POBOSITI 
C A-SEGBEBT 

SUB  a 0.0 
El  a 0.0 
DO  510  1=2,11,2 

El  a B1  ♦ A(I) 

510  SUB  a SOB  ♦ A (I)  •SQHT(BH  (I)  ) 

DO  520  1=2, N, 2 
Q(l)  a A (I)  •SQBT  (HH(I)  )/SOB 
520  CONTIBOB 
C fl-SBG 

E2  a 0.0 
SOB  a 0.0 
N1  a N-1 
DO  530  1=1, Nl, 2 
E2  = E2>A(I) 

530  CONTINUB 

IX  a A (N-1) ‘SOBT  (BH(N- 1)  ) 

II  a A (N-3)  «SQBT  (RH(N-3)  ) 

0(8-1)  a C(8)  ♦ Q(N-2)  •IX/(XX»II) 

IX  a A ( 1)  ‘SQaT  (BH  ( 1)  ) 

II  a A (3)  »SQBT  (BH  (3)  ) 

Q ( ')  a Q (2)  •XI/  (XX*II) 

BAX  a h-3 

C DON'T  NEED  POILOaiNGIP  N .18.  H 
IP(  t .IE.  i<)GOTO  1000 
DO  51(0  1=3, BAX, 2 
XI  a A (I)  »SCBT  (BH  (I)  ) 

II  a A (1-2)  *saBT  (BB(I-2)  ) 


PLS0  32  10 

PIS03220 

PLS03230 

PlS032a0 

PIS03250 

PLS03260 

PIS03270 

P1S03280 

PLS03290 

PLS03300 

PIS03310 

PLS03320 

P1S03330 

P1S033U0 

PIS03350 

P1S03360 

PIS03370 

PIS03380 

PLS03390 

PIS03400 

PIS03II  to 

PLS03420 

11503430 

PIS03440 

PLS03450 

PIS03460 

PLS03470 

PLS03480 

PLS03490 

PIS03500 

PLS0351C 

PLS0a520 

PLS03530 

PLS03540 

PIS03550 

PLS03560 

PLS03570 

PIS03580 

PtS03590 

PIS03600 

PLS036 10 

PLS03620 

PLS03630 

EIS03640 

PIS03650 

FISO  3660 

PLS03670 

PlS036e0 

FLS03690 

PIS03700 

ELS03710 

PLS03720 

FLS03730 

PLS03740 

EIS03750 

PIS03760 

PIS03770 

PLS03780 

FIS03790 

PLsoieoo 

FIS03810 

PLS03620 

EIS03B30 

PLS03840 

FIS03850 

FLS03860 

ELS03870 

Fisoaeeo 

FIS03890 

PLS03900 

PIS03910 

PLS03920 

EtS03930 

PLS03940 

FIS03950 

PLS03960 

EIS03970 

ELS03980 

EIS03990 

PIS04000 


noon 
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ZZ  = A (1  + 2)  »SgBT  (BH(I»2)  ) 

Q{I)  = Q(I-l)  ♦ Q (I*  I)  ‘II/ (1X*ZZ) 

5«0  COBIISOg 
1000  8E10BN 
EBO 
C 

SDBBCOTIBB  BIX2  (ITnANS,BA,NB,C) 

COBBCB  /TBO/  a(20),A(20),E{20) 

DXBEESION  C(20) 

C THIS  SOBBOOTIEE  DETEBBIHBS  AHSOLDS  ISLET  CO SCEHTBATIO SS 
C ITBASS»0=»>A  TO  B IBASSITIOS 

C «1==>B  TO  A TBABSITIOS 

S - SA*NB 

ir  |IA  .IE.  SB)GOTO  500 
C THIS  SECTIOS  fOR  BA  GT  HB 

IFtITBANS  .BE.  0)  GOTO  200 
C A TO  B TBANS 

C 8*S  ABE  BTEB  BOBBEBBO  SOBSCBIPTS 

N1  « B-1 
DO  100  I>2,R1,2 

C(I)  - (1.0-i<I*1))*Q(I  + 1)»ctI»1) 

C(l)  » C(I)  ♦ S(I-1)*Q(I-1)»C(I-1) 

C(l)  =«  C(I)  / (1(1) 

100  COBTINOB 
BEIOCN 

200  COBTIBOB 
C B TO  A TBABS 

C A'S  ABE  ODD  BOHBEBBD  SOBSCBIPTS 
C(1)  - C(2) 

C(B)  » C(B-1) 

B2  » B-2 


300 


500 

C 


DO  300  I»3,B2,2 

C(I)  = (1.0-i(I))»C(I-1)  ♦ B(I)*C(I*1) 
COBTIBOB 
BETOBH 
COBTIBOB 

THIS  SECTIOB  ECB  IA>BB 

IPdTBABS  .BE.  0)GOIO  700 
C A TO  B TBANS 
C B'S  ODD  BOBBEBEO  SOBSCBIPTS 
C(1)  . C(2) 

B1  • B-1 
DO  600  1-3, B1, 2 

C(I)  - (1.0-B  (I«1)  )*Q(1H|  »c  (I*  1) 

C(l)  - C(I)  ♦ B (1-1)  *Q  (1-1)  »C  (1-1) 

C(l)  = C(I)  / Q(I) 

600  COBTINOa 
BETOBB 

700  COSIINOS 
C B TO  A TBANSITIOB 
C A'S  EVES  NOBBEBED  SOBSCBIPTS 
C(B)  - C(B-1) 

B2  - B-2 


800 


10 

15 

C 

C 

C 


DO  800  1-2, B2. 2 

C(I)  = i(I)»C(IA1)  ♦ ( 1.0-B  (1)  ) *C  (1-1) 

COBTIBOB 

BETOBB 

END 

SDEBOOTINE  STEP ( B , BA,N B ,TIHE , I ElAG) 
CQBHOB  /FITE/  C (20 , 1 18 , 50) , CIN ( 20, 1 1 8) 
COBBCN  /FODB/  TDEAD (20)  , BSOB  (20) 

IF(TIBB  .GT.  0.0)  GOTO  15 

DO  10  1=1,20 

DO  10  J-1,118 

DO  10  K=1,50 

C(I,J,K)  - 0.0 

COBTIBOB 

COBTIBOB 

BOS,  SIT  OP  STEP-CBABGE  (OB  POLSE)  AT  INLET 
IPLAG  -0==>IBLET  CCNC  AT  1.0 
-1— >BACB  TO  0.0 
TAtOt  = 1.  0 

IF(IILAG  .RE.  0)  TALOE  = 0.0 


NOTE — ASSONB  OSLI  EVEN  BO.  BADIAL  DIVISIONS 


THIS  SECTION  FOB  BA  = NB 
100  COiTINOB 

DO  150  1=2, B, 2 
ISOB  = BSDB(I) 


ELS0I4010 

FLS0q020 

EIS0II030 

PLSOSOBO 

PLSOR050 

ELS0t|06O 

ELSORCTO 

ElSOROeO 

PLS0R080 

ELSOHOO 

PISOR 110 

ELS0II120 

ELSOR 130 

ELS0R1R0 

ELS0R150 

ELS0R160 

FLS0R170 

ELSOR180 

ELSOR190 

ELS0R200 

EIS0R210 

PLSOR220 

EIS0R230 

EIS0R2R0 

EISOR250 

PLS0R260 

EISOR270 

ELS0R280 

EIS0R29O 

PLS0R300 

ELS0R3 10 

ELS0R320 

EIS0R330 

FLS0R3R0 

EIS0R350 

ELS0R360 

PLS0R370 

ELS0R380 

PLS0R390 

ELSORROO 

PLSORR  10 

EIS0RR20 

PLS0RR30 

EISORRRO 

PLS0RR50 

ELS0RR6Q 

ELS0RU70 

ELS0RR80 

ELS0RR90 

FLS0R500 

ELS0R510 

PLS0R520 

FLS0R530 

ELSORSRO 

EIS0R55O 

PLS0R560 

ELS0R510 

ELS0RS80 

ELS0R590 

ELS0R600 

PLS0R6 10 

PLS0U620 

PLS0R630 

ELS0R6R0 

PLS0R650 

EISOR660 

PLS0R670 

ELS0R680 

PLS0R690 

EIS0R700 

PLS0R7  10 

EIS0R720 

PIS0R730 

EIS0R7R0 

PL30R750 

EIS0R760 

FLS0R770 

ELS0R78O 

PLS0R790 

EIS0R8OO 
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C(I,1,IS0B)  = 7AL0E 

FLS048  10 

CIS(I,1)  = 7AL0B 

ELS04820 

IF(TIMB  .GT.  0-0)  GOTO  145 

PLS04830 

11  = 1-1 

EIS04840 

ISOB  = HSOB(II) 

PLS04850 

C(I1,1,IS0B)  = 0.0 

FLS04860 

CIH  (11,1)  « 0.0 

PLS04870 

145 

COHTIHOE 

ELS04880 

150 

CQHllHOE 

FLS04890 

BEIOBB 

FLS04900 

EHE 

FLS049 10 

C 

FLS04920 

SUBHOOTIHE  DELIA  (DTIBB,  H,  HA,  HB, 

JBAI, 

flCHG) 

FLS049JO 

COEHCH  /PCOB/  TCEAD(20)  ,BS0B(20) 

FLS04940 

C 

CALC  lIHE  STEPS/DEAD  IMS 

FLS04950 

DO  100  1=1, H 

FLS04960 

ZZ2  = TDEAD(I)  / OTIHE  * 0.5 

PLS04970 

BSOE  (I)  = ZZZ 

ELS04980 

1P(HS0B(I)  .LI.  t)HSOB(I)  = 1 

FLS04990 

100 

CORIIHOE 

EIS05000 

c 

HOB,  CALC  EAX  AHD  BIB  HSOB'S  IB  EACH  BALF-CELl 

PLS050 10 

c 

...DEEEHDS  ON  NA=NB  OB  HA>HB 

EIS05020 

IP  (HA  .LE.  BB)  GOTO  500 

FLS05030 

c 

THIS  SICTON  fOB  BA>NB 

PLS05040 

BAXA  = 0 

E1S05050 

HAZE  • 0 

FLS05060 

BIIA  = 1E6 

ELS05070 

BIBB  = 1E6 

FLS05080 

DO  200  1=1, H, 2 

ELS05090 

IF(NS0B(I)  .LI.  H1XA)G0T0  150 

PLS05 100 

HAIA  = HSOB  (I) 

ELS05110 

150 

COHIIHOE 

FLS05 120 

IPIRSDB(I)  .GT.  B1BA)G0T0  160 

EIS05130 

HINA  = RSOB(I) 

PLS05140 

160 

CCBIIBOE 

ELS05150 

11  » 1*1 

FLS05 160 

IP  (11  .GT.  R)GOTO  200 

ELS05170 

IF(HSOB(I1)  .LI.  BAZO)  GOTO  180 

PLS05  180 

BAZB  = BS0B(I1) 

EIS05190 

180 

COHIIHOE 

PLS0S200 

IP  (HSOB  (11)  .GT.  BIBB)  GOTO  200 

ELS05210 

HIHB  « NSOB(II) 

PLS05220 

200 

COHIIHOE 

ELS05230 

GOlO  700 

FLS05240 

C THIS  SJCTION  roa  a»=KB 

ELS05250 

500 

CONTINUE 

PLS05260 

BAJA  = 0 

FLS05270 

BAIB  = 0 

PLSC5280 

BISA  = 1E6 

E LS05290 

HIHB  = 1E6 

PLS05300 

DO  600  1=2, B, 2 

ELS053  10 

IP  (HSOB  (I)  .LI.  HAXA)GOTO  550 

PLS05320 

HAIA  = HSOB(I) 

ELS05330 

550 

COHIIHOE 

PLS05340 

IP  (HSOB  (I)  .GT.  MIHA)GOTO  560 

FLS05350 

BIRA  = HSOB(I) 

PLS05360 

560 

CORIIHOE 

FLS05370 

11  » 1-1 

PLS05380 

IP  (HSOB  (11)  .LI.  H AX B)  GOTO  580 

EIS0S390 

BAIB  = HSOB  (11) 

ELS05400 

580 

COHTIHOE 

FIS054  10 

IP(NS0B(I1)  .GT.  HIHB)GOTO600 

FLS05420 

HIHB  = HSOB(II) 

EIS05430 

600 

COITINOE 

FLS05440 

C 

ELS05450 

700 

COHIIHOE 

FLS05460 

HBITE  (6,2000) BAXA, HAXB 

FLS05470 

iBlII(6, 2010)  HINA,  HIHB 

ELS05480 

C NOi,  ADD  OP  MAX'S  AHO  BIH'S  TO  CALC  HO 

AXIAL 

CELLS  (JHAX) 

ELS05490 

NCBG  a 0 

FIS05500 

ccc 

SflAX  a raXA  ♦ flAXB 

FIS055 10 

ccc 

sniB  a niHA  ♦ niNB 

ELS05520 

ccc 

ZZ2  a SflAX/SBIN 

FLS05530 

ccc 

JflAX  a 2ZZ 

ELS05540 

ccc 

JflAX  a jhAZ  ♦ 1 

FLS05550 

ccc 

HCflG  a HAIA  ♦ BAXE 

EIS05560 

ccc 

9RITZ  (6,2020) JHAI^RCHG 

PLS05570 

ccc 

IM  JHAX  .LE.  (10)  )GOTO  750 

ELS05580 

ccc 

HRIIE  (6,2040) 

PLS05590 

ccc 

STCF 

ELS05600 

u u 
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iri^G  ’ u 
DO  800  1=1,8 


tLOUDO^U 

ELS05630 


IF  1 HSOB  (1)  .GT 

. (50) 

) IPLAG  a 

10 

PLS05640 

800 

COSTINUB 

PLS05650 

IF  f IFLAG  . LT. 

1)  GOTO 

900 

EIS05660 

HR1T£(6« 

2030) 

PLS05670 

STCF 

ELS05680 

900 

REIUBN 

PLS05690 

2000 

FCBBAT  (• 

BAXA  = 

’,15, 

• BAXB  a 

M5) 

PLS05700 

20  10 

FOSBAT  (» 

BIRA  a 

niRB  a 

M5) 

ELS05710 

2020 

P05BAT  (• 

JRAX  a 

',15,' 

HCflG  a 

MS) 

ELS05720 

2030 

FOHBAT  (• 

...pon 

ABOBT 

in  SUBB 

DELTA. 

HSOB 

GT 

(15)  •) 

ELS05730 

2040 

FCBBAT  (' 

...PGfl 

ABOBT 

IN  SDBB 

DELTA. 

ORAX 

GT 

(10)  •) 

PLS05740 

£80 

C 

SOBEOOTIHS  TOID ( NCIT,DIDP, BHCI , 8802, £aAB,EES) 
Z8D1?  = HDIY 

DEIS  = (8802  - BB01  ) /Z80IT 
HOID  » 8801 

FOLD  - 8801*88880  (BB01 , DTOP,  IBAB) 

SOB  = 0.0 
DO  100  I-1,8D1T 
B8E8  > BOLD  * DELB 

F8IN  - BNEB  * E808C(88E8,  DT  CP , EBAB) 

FI8T  • O.S*OELB*  (F8E8  ♦ FOLD) 

SOB  » SOB  ♦ FIBT 
FOLD  « F8E8 
BOLD  = 88EB 
100  C08H8DE 

VTOT  « BH02*BB02  - BB0  1*flH01 
EPS  • SOB 

EES  = 2.0»EES/»TOT 
BEIOBB 
EHC 
C 

FOECTION  EF08C(B,  DTDP,  EBAB) 

PI  > 2.0*ABSI8(1.0) 

A1  = 0.3461 
A2  = 0.4273 
A3  > 2.4509 
A4  « 2.2011 
X » 0.5»0TDP»  (1.0-B) 

IF(  I .LT.  0.25)  GOTO  100 
IT  « COS ( (A3*I-A4)*PI  ) 

II  = A1*II/EXP(A2*I) 

EFOBC  » (1.0-EBAB)  *II  ♦ EBAB 
GOTO  1000 
100  CCSTI8UE 

C THIS  SECTI08  FOB  'HALL*  RBGIOH 
II  = 7.0»I*I/9.0 
II  = 4,5*  (X-II) 

II  « (1.0-EBAB)  *II 
EFONC  = 1.0-II 
1000  BEIOAH 
E8C 


SDBB00TI8E  BIX1(BA,8B) 

C TUIS  SOEBOOTI88  DETEBBI8ES  BEIGBT  FACIOBS  FOB 
C BIZI8G  AT  AB80LDS  I8LETS 

CDEBCB  /T80/  Q (20)  , A (20)  ,8  (20) 

8 = 8A*88 

IF  (BA  . LE.  NB)  GOTO  200 
C TBIS  SECTI08  FOB  BA  GT  8B 
C 8EID  BEIGHTS  FOB  ODD  BOBBEBED  SEGBE8TS 
8(8)  = 0.0 
8(1)  = 1.0 
82  = 8-2 
DO  10  1=3,82,2 
II  = 82  - I ♦ 3 

8(11)  = ( fl(I1*1)  - (1.0-8(11*2))  *Q(I1*2)  )/Q(I1) 
10  C0BT18DE 
GOTO  1000 
200  C08TINDE 
C TBIS  SECTIOS  FOB  8A  = HB 

C NEED  8EIG8TS  FOB  EVEN  NUBBEBBO  SEGflENTS 
8(8)  = 0.0 
82  = 8-2 
DO  300  1=2,82,2 


ELS05750 
PLS05760 
ELS05770 
ELS05780 
ELS05790 
PLSO5B00 
PLS05810 
ELS05820 
ELS05830 
PLS05840 
ELS0S850 
ELS05B60 
ELS05870 
ELS05880 
ELS05890 
ELS05900 
EIS05910 
ELS05920 
ELS05930 
ELS05940 
ELS05950 
PLS05960 
EIS05970 
PLS05980 
PLS05990 
PLsoeooo 
PLSoeoio 
PLS08020 
ELS06030 
PLS06040 
PLS060S0 
PLS06060 
PLS06070 
ELS06080 
EIS06090 
PLS06  100 
ELS06  1 10 
EL306120 
FLS06  1 JO 
EL306 140 
PLS06 150 
PLS06 160 
PLS06  170 
FLS06180 
PLS06  190 
PLS06200 
PLS062  10 
ELS06220 
PLS06230 
PLS06240 
PLS06250 
E1S06260 
PLS06270 
ELS06280 
ELS06290 
ELS06300 
PLS063 10 
FLS06320 
ELS06330 
FIS06340 
FLS06  350 
ELS06360 
FLS06370 
PLS06380 
F1S06390 
PLS06400 
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II  = 2-I+H2  PIS06H10 

S(11)  = ( Q(IU1)  - (1.0-MUU2))  »C(IU2)  )/Q(I1)  PLS06II20 

300  COPTIHOE  PIS06II30 

1000  COETINOE  PLS069IIO 

BEIOBS  PIS06450 

end  PLS06<160 
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Steady-state  Heat  Dispersion 

General  program  flow  follows  that  for  steady-state  mass  dis- 
persion, but  with  added  steps  of  numerical  integration  along  the 
length  of  each  half-cell  (subroutine  CELLIN)  between  mixing  calcula- 
tions. As  for  mass  dispersion,  two  versions  of  subroutine  ANN  are 
given.  Other  programming  details  are  commented  in  the  listing. 


no  nonnnno 
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PBOGB^a  HABE  'TBUPEJ  E0HT8AN* 


THIS  BOH  FOB  DATA  OP  LEBOU  AND  FHOBEHT — CTLINDERS 


LAST  OPBATE/USE  ON  28  JONS  85 
DIEEKSION  EFS (100) ,AIS  (100) 

DIHENSION  TIN(IOO) 

DI8ENSI0N  Q (100)  ,a  (100)  ,A  (10  0)  ,TEL(100) 

DIHENSION  8(100)  ,C(100)  ,T(100) 

DIHENSION  BA  (100)  , BB  (100) 

CORHCN  /ONE/  TOLD(IOO),  BB(IOO),  lAHTOB 

COBHCN  /ai/  HP,BB,DT,DP,CP,IiALL,G,BEIGHT,ISaAPE,APELl 

DATA  TIN  /100*20.5/ 

DATA  NLOHG.BPBINT  /49, 0/ 

THIS  PBOGBAH  CALCOLiTES  FLOIS  AID  TEBPEBATOBES  GIFEN 
ANNDLOS  DIflSNSIONS. 

DATA  C /100»0.0/ 

DATA  B /100*0.0/ 

NOTE — THE  TABIABLE  'ISHAPE'  DEHOTES  SBAPi  Of  PARTICLES 
DIHENSION  PS1P(5)  ,PSIB(5) 

DATA  PSIP  / 1.0  , 1.0,  3*1.0  / 

DATA  PSI8  /1.0,  1.0,  3*1.0/ 

(EFFECT  BEAT  THANSFEB  CASES) 

IF  ISBAPB  ■=  1 ==>  SHPEBES 

’ 2 »»>  CILINDEBS 

IT  IS  THE  SOBSCBIPT  OF  THE  'SHAPE  FACTOB'  TECTOB,  PSI 
TO  BE  DSED  IN  THE  J-FACTOB  ABALOGI.  . . 

H » CONST  * PSI  * H(SPHEBE) 

PSIP«»PELLBT  H;  PSII*°IAL1  B 
ISBAPE  • 2 


COHOOO  10 
00800020 
COR00030 
DOEOOOIIO 
COB0CQ50 
C0B00060 
COH00010 
cuBOooao 
COB00090 
DDH00100 
DOROC  1 10 
CUH00120 
CUH00130 
COR00140 
tOBOO 150 
D0B00160 
C0B00170 
CUH00180 
DUH00190 
DOR00200 
DOR002 10 
E0R00220 
COH00230 
DOB002<l0 
COEO02S0 
COR00260 
D0H00270 
COH00280 
DUR00290 
COB00300 
DOB00310 
[0800320 
COH0033Q 
DOB00340 
DUH00350 


8BITE(6,2370) 

DOR00360 

OT  > 3.6 

COH00370 

ZOP  • 0.26 

D0B00380 

ZLP  • ZDP 

[OR00390 

DP  « ZDP*ZDP  .♦  ZLP*ZLP 

D0B00900 

OP  > SaRT(0.5*0P) 

EOH009 10 

c 

DON'T  FCBGET  THAT  ZLP=ZDP  FOfl  SPHERICAL  PELLETS 

D0F00920 

c 

ALSO,  FOaa  OF  SDBF  ABEA/FOL  (APELL)  CHANGES  BITH  SHAPE... 

DOR00930 

APELt  * 6. 0/ZDP 

D0H00940 

DTDP  » DT/DP 

COH004S0 

DC  10  1=1,100 

CUF00960 

10 

8(1)  = 20.0 

CUEOC970 

c 

NOB,  TBt  ASSIGNING  NO.  CELLS  BASED  OH  CO B R El A TI ON . . . 

CUB00980 

2 = DTDP/0.816  ♦ 0.5 

C0S0C990 

N = 2 

COF00500 

2 » N 

[OB005 10 

2 « 0.5*Z 

C0B00520 

NB  * Z 

CUH00S30 

NA  » N-NB 

COB00590 

c 

HBSTBICT  TO  E7EH  NO.  SBGHENIS 

CUR00550 

IF  (NA  .GT.  NB)  NB  = NA 

COR00560 

N « NA*NH 

COH00570 

8 BITE  (6,2020)  DTDP,N,NA,NB 

DUR005BO 

c 

SIZE  BADII 

COH00590 

c 

SET  OP  TO  DO  INCREASING  EA'S... 

C0H00600 

c 

SIZE  EIENLI  SPACED  BADII 

EUR006 10 

28  • 8/2 

COE00620 

DELB  - 1.0/2N 

CIIB00630 

B(2)  = DELB 

[OH00640 

DO  80  1=9, N, 2 

C0F00650 

a (I)  = 8(1-2)  ♦ DBLB 

cnnoo660 

80 

COBTINOE 

COB00670 

c 

DETERHINE  EPS  FOB  EACH  SEGHENT... 

[UH00680 

EBAE  " 0.32 

DOE00690 

c 

VOID  FRACTION  OF  FIRST  SEGHENT 

[OR00700 

CALL  VOID(DTOP,0.0,B  (2)  ,EBAB,E1) 

EOB00710 

1 = 2 

[UH00720 

8RITE  (6,2010)  I,  El 

CUE00730 

100 

CONTINOE 

CUH007U0 

EPS(1)  = El 

COB00750 

EPS(2)  = El 

CUH0C760 

II  = H(2)  *B  (2) 

CUB00770 

AIS(1)  = II 

CUB0C780 

AIS(2)  = II 

COE00790 

RA(1)  = (1.0-E1)*I1 

EOHOOBQO 
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BA  (1)  = SQBT  1 BA  (1)  ) 

DDBQ0810 

BB(1)  = B1»IX 

ODH00820 

BB(1]  a SQBT  I BB(1)  ) 

DOR00830 

BA  (2)  3 B (2) 

DonooeQO 

BB(2)  = B(2) 

CDE00850 

«A1  « S-1 

cun00860 

DC  120  1=3, BAX, 2 

COB00870 

c 

TOID  FBACTIONS  OF  BAOXAI.  CBLLS  BASED  OH  COBBEIATICH 

cDBOoeeo 

BHC2  « B (1+1) 

CDE00890 

BHOl  a H(l-l) 

COH00900 

CAIL  TOIO  (OTDF.BUO  1,BH02,  BBAB,  BHAT) 

CDR009  10 

lU  a 1 

canoo920 

BBITE  (6,2010)  m,EBAT 

DOE00930 

XX  = a (1+1)  •H  (1*1)  - a (1-1)  »B  (1-1) 

D0R00940 

AXS(l)  = 12 

DDB00950 

AXS(IH)  > XX 

CDnOQ9eO 

EFS(I)  - BHAT 

CUH00970 

EPS  (IB)  - BBAT 

DDH00980 

BA  (I)  « (1.0-EHAT)  »XX 

DOH00990 

BA(I)  - a (1-1)  »B  (X-1)  ♦ BA(I) 

DDB01000 

BA  (I)  > SQBT(  BA  (I)  ) 

CUH01010 

BB(I)  = BHAT  • XX 

DDH01020 

BB(1)  » B (1-1)  »H  (1-1)  ♦ BB(I) 

CDHO  1030 

BB  (I)  > SQBT  ( BB  (I)  ) 

D0RO1040 

B1  (IB)  a B (IH) 

CDHO  1050 

BB(IH)  a B(Ii) 

EURO  1060 

120 

CCNtlNOS 

CDHO  1070 

BM  a 

CORO  1080 

BBITI  (6,21S0) 

CDHO  1090 

H BIT  I (6,2160)  (BA  (I),  B(  1*1)  ,1=1,  BAX, 2) 

DDH01100 

BBITE(6,2160)  (RB(I),B(I*1)  ,I=1,HAX,2) 

CDHO  1 1 10 

CALL  ANII(BA,NB,Q,B,A,E1,B2,BA,BB) 

CDH01120 

CAIL  BIX1  (NA,HB,Q,H) 

CDHO 1130 

c 

»»»**CCN'T  FORCBT  BEAT  X-FEB  GOODIES***** 

CUBO  1140 

c 

HEAT  I-BEB  DATA  GOES  BEBE 

cunoii50 

c 

C.G.S.  OHITS“ 

DUeO  1160 

c 

CDE01170 

ccc 

TIB  » 30.0 

OOHO  1180 

DO  1 1=1,100 

CDB01190 

1 

TOLD  (I)  - TIH(I) 

CDHO  1200 

TBALI  = 100.0 

DDE01210 

CP  « 0.25 

DDBO  1220 

c 

HOTE--OSING  SI8B0L  'G*  TO  SIGNIIT  HASS  FlOB  RATE 

DDE01230 

c 

(G/SBC)  AND  »HOT*  HASS  FLDX  (G/SEC-CH* *2 ) ! 1 1 I 

CDHO  1240 

c 

GDCT==>HASS  FLOl:  GDASB==>EASB  CASE  HASS  FLDX 

CUBO  1250 
CDH01260 

XX  a 0. 4«3600. 0 

DURO  1270 

GDASE  = 27H.0/XX 

DOeO  1200 

G8AIL  = 3.17  ♦ 456.0  / 3600.0 

CORO  1290 

HB  = 1.80 

DDK01300 

G a gH 

COHO  13  10 

XX  = 3. 1416*0. 25*CT*DT»E1 

0D601320 

GDCT  a G/XX 

CDHO  1330 

c 

TfiT  HI  CCaRBLATICB  rOR  HP  AHD  HI.  . . 

C0B01340 

c 

IBCLODE  TEHP  DEPENDENCE  OF  DEBSITI  FOB  VEIOCITI  PDBPOSES 

CDB01350 

TEAS!  = 60. 0*273. 15 

COBO  1360 

TEBP  • (TIN(l)  *TBALL)/2.  ♦ 273-15 

CDHO  1370 

HP  » 1.0E-3  » SQBT(  TEHP*GD0I*0.6/ (GBASE  * TBASE  * DP)  ) 

C0H01380 

HP  - HP*1.0 

COH01390 

ccc 

Hi  » 2.40B-3 

COHO  1400 

HR  = 2.  OB-3*  ( GDOT/GBASE  )**0.  8 

D0RO1410 

HEIGHT  - 0. 10 

DOBO  1420 

HBITB  (6,2360)  BB,  BE, HEIGHT, TEHP 

CDS01430 

STOPP  a G • CP  » DIOP 

CORO  1440 

STDBF  • 4. 0*SQHT (2.0/3.0)  / STDFF 

CORO  1450 

STOP?  a STOFF/Q (N) 

CORO  1460 

DO  200  I«1,N 

DDBO  1470 

VEL(1)  * B1*Q(I)/A(I) 

CORO  1460 

200 

CCBTINDE 

CDEO 1490 

HBITB  (6,2050) 

CDHO  1500 

00  300  1=2, N, 2 

CDHO  1510 

J = 1-1 

CDHO  1520 

HRITE  (6,2060)  I,A  (I),Q(I)  ,7EL  (I)  ,J,A(J)  ,Q(J)  , »EL(J) 

CDHO  1530 

300 

coannuE 

CORO  1540 

HBIIE  (6,2070)  E1,E2 

CORO  1550 

HBITE  (6,2150) 

CDHO  1560 

ccc 

HBlIl  (6,2160)  (B(I),X=1,N) 

DOBO  1570 

COHO  1580 

c 

IHITIALIZE  PROPILE. 

DDBO  1590 

DO  420  1=1, N 

DOBO  1600 

214 


T (I)  = TIB  (I) 

1120  CONimUE 

C NOi,  CAIC  TEBPIBATOBES... 

CCC  BBIIE  (6,2220) 

RCOBT  = 0 

500  KODIIl  a KOO!IT*1 

HBITI (6,2260) XOONT 
IF(XCONT  .GI.  (aOBG)GOTO  1000 
C RECALC  FLOB  DISTBIB  EASED  OH  T EBOFILI 
C OSB  LAST  CELL'S  TEBP  TO  CALC  IIB 
CCC  Hi  a hbaLL(  T(B),  234.0,  DP) 

HE  a 236.0 

HP  a hPELL  ( T (1)  , HE,  DP) 

ALP  a STOFF*HH 
ALE  a Q.o 

IBIT£(6,2310)  nP,HH 


CCC 
CCC 
CCC 
CCC 
CCC 

c 

C HUHERICAL  IHTEGRATION  ALOIG  THE  LERGIB  OF  EACH  BALF-CELL 
CCC  HHITE (6,2320) 

CCC  HBITE(6,2600)  (I,T(I)  ,r»1,H) 

CALL  CELLIH  (1,  H,  Q,T,  RA,  BB,  B,  EPS,  AZS) 

UB1TE(6,2330) 

HBITE  (6,2600)  ( I, T ( I)  , I- 1 , M) 

CALL  niX2(0,HA,HB,a, H, T , THALL, 0. 0) 

CCC  BHITE  (6,2360) 

CCC  HR1TE(6,2600)  (I,T(I)  ,Iat,N) 

CALL  CELLIH  (0,  H , Q,  I,  BA,  B B,  H , IPS  , AIS) 

WRITE (6,2350) 

UBITE(6,2600)  (I  ,T  ( I)  , 1=  1 , H) 

C CALC  AVG  TERPS  AHD  WBITE  BESULTS 
C ASSDHE  ETEH  BO.  BADIAL  DITISIOHS 

TAEAB  a 0.0 
TEBAE  - 0.0 
DO  520  I«2,H,2 
Jal-1 

TABAB  a tABAB  ♦ g(I)»T{I) 

TEEAB  a TBBAR  ♦ g (J)  »T  (J) 

CCC  HBITE  (6,2250)  I,g(I),T(I)  ,J,g  (J)  ,I  (J) 

520  CCBTIHOE 

IRITI (6,2300) TABAB, TBBAB 
710  COBTIROE 
C CALC  A-IRLETS... 

CALL  BIX2  (1,HA,BB,g,l,  T.TIALL,  0.0) 

GOTO  500 
1000  CORTIRDE 
C FORMATS... 

2010  rOFMATC 
FORMAT ( ' 


HA  ai,I3, ■ nb  =',IJ) 


I a'.IK,  I EPS  a t.EII.U) 

ALPHA  =',E11.6) 

PORHATC  DTCP  a '.Eli.  6,'  N =',I3,' 

FCBMAT  ('  DVB  at^j)).4j 
FC6MAT  (•  F a • , E 1 1.4) 

F0BHAT(20X,'A',63X,'B'  ,/,  2X  , 60  ( •- • ) , 21, 60  ( •- • ) ,/, 

1 2 (21,'I',7X,'A',  nx,' P',9X,'yEL  *,5X),/, 

2 II, 2(' •,2X,3(' ',2X))) 

FORHAT(1X,2(I3,2X,3(E10.6,2X))  ) 

FCBBATC  El  a ',E11.6,'  B2  - ',£11.4) 

FORHATC  BADII...') 

FCBRAT(S(2X,E11.4)) 

FORHATC  HIXIRG  HEIGHT  FACTOBS.  . .') 
FORnAT(9I,'A',30X,'B',/,2(2X,29('-'))  ,/, 

1 2I,2(1X,'I',8X,'G',7X,3X,'  T ’,4X),/, 

2 21, 2(' ',2X,' *,2X,' •,2X)) 

C23456789. 1233456709.  1234567  89.  12345670  9.1236567  89. 


20  15 
2020 
2030 
2040 
2050 


2060 

2070 

2150 

2160 

2170 

2230 


DORO  16  10 
COHO  1620 
DORO  1630 
CORO  1640 
DORO 1650 
EURO  1660 
DORO 1670 
DORO  1600 
CORO  1690 
CORO  1700 
CORO  1710 
CORO  1720 
DORO 1730 
COR01740 
C0R01750 
CORO  I960 
.DORO  1770 
CORO  1780 
DDR01790 
COR01800 
CORO  1810 
CORO  1820 
DORO  1830 
CORO  I860 
CORO  1050 
COHO  1860 
DORO  1870 
CORO  1880 
COR01890 
EURO  1900 
CORO  1910 
DORO  1920 
COEO  1930 
DURO  1940 
DORO 1950 
COHO  1960 
D0HO1970 
COHO  1980 
DORO  1990 
COR02000 
COR02010 
0ORO2020 
CDH02030 
COR02060 
DOR02050 
COHO206O 
CDH02070 
COR02030 
COF02090 
CDR02100 
CUR02  1 10 
D0R02 120 
COR02  130 
DOH02140 
COH02150 
D0R02  160 
COH02170 
CDR02  180 
0ORO2 190 
D0R02200 
D0R02210 
COR02220 
C0E0i230 


2240 

FOBHAT  (' 

CELL  HO  >,I5) 

C0H02260 

2250 

FOBHAT  (2X,  2 (13, 2X,  Ell.  6, 2X,  B 11.6,21)  ) 

CDR02250 

2260 

POBBUT (• 

lA  a ',E11.4,'  EBED  = ’,E11.4) 

CDR02260 

2270 

poan»T(» 

CALC.  INVALID  VOID  FRACT.  PGR  ABCBTED  •) 

CUR02270 

2290 

rOBBAT  {• 

F af,En.4,'  SOM  a',811.6,'  EPS1  a*, £11.4) 

COR02280 

2300 

F08B*T  (• 

AVG  TERPS  ' ,2X, El  1.4,  101, El  1.4) 

CDH02290 

2310 

PCBflJIT 

HP  a ',£11.4,'  UB  a ',811,4) 

CDR02300 

2320 

PORf1AT{* 

A INLETS...') 

CDH023 10 

2330 

P0RSJ»T{* 

A OUTLETS...') 

C0R02320 

2340 

FOBHAT  (* 

B INLETS...') 

CDR02330 

2350 

FOBHAT  ( • 

B OOTLETS ') 

CDR02340 

2360 

FOfiBAT  1* 

D8  =',E11.4,'  HP  =',E11.4,'  BEIGHT  ai.EH.4 

CDR02350 

• * T(OeHSITT,K) s’bEI  t.4) 

COH02360 

2370 

POBHAT(5(*  ••)  #*TEHPV3*,5(»  ••)) 

DOR02370 

2400 

PORHAT  ( 

6 (16, 2X, El  1.4)  ) 

CUH02380 

STCF 

DOH02390 

2ND 

CUR02400 
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c 

c 

SOBBCUTINK  ABl((ltA,HB,g,R,A,H,I2,BA,RB) 

DIKEBSIOB  BA  (100)  , RB(IOO) 

DIBBBSIOM  Q (100) ,a  (100)  ,BH (100) ,A  (100) 

C CALC  HlDBAOirC  BADII,  AH D ABBAS 
N = NA  ♦ NB 
C A HALB-CELL 

DO  10  I»2,H,2 

BH  (I)  « B (I)  - BA(I-I) 

A(I)  = H(I)»B(I)  - HA(I-l)  »EA(I-1) 

10  COBTINOE 

C B BALF-CELi 

Rfl(1)  3 BB(1) 

A (1)  » BB  (1)  *BB  (1) 

BAX  » B-1 

DO  20  I»3,BAX,2 

HH(I)  • HB(1)  - B(I-1) 

A(I)  =■  HBU)»Bfl(I)  - H (1-1)  *11(1-1) 

20  COmiHOB 

C HOB,  DETEBHIRB  BLOBS  AHD  POBOSITIBS  OP  A AHO  B SECS 
C DEPEHDS  OH  HA  AHD  RB 

IP  (HA  .LE.  RB)  GOTO  50  0 
C THIS  SICTOH  FOB  HA  GT  HB 
C BLOB  DISTBIBUIIOH  AND  POBOSIII 
El  « 0.0 
SOB  =■  0.0 
DO  100  1=1, H, 2 
El  » El  ♦ A (I) 

100  SOB  = SOB  ♦ A (I)  *SQBT(BB(I)  ) 

DO  110  1=1, H, 2 
0(1)  = A (I)  *SQBT  (BB(1)  )/SOB 
110  COHTIHOE 
C B SEGEItT 

E2  • 0.0 
SOB  « 0.0 
HI  » H-1 
DO  120  1=2, HI, 2 
E2  = E2*A(I) 

120  COHIIHOE 

XI  - A(H-1)*SQBT(  BH(H-I)  ) 

IT  = A(H-3)*SQBT(  BH  (H-3)  ) 

Q(H-1)  = Q(H)  ♦ a(H-2)  *IX/(IX  + TI) 

XX  » A (2)  ‘SOBT  (BH  (2)  ) 

II  = A (B)  *SOaT  (BH  (4)  ) 

0(2)  =•  Q(l)  ♦ Q(3)  •XX/  (XXHI) 

BAl  = 5-3 

C DOB'T  HEED  FOLIOBIHG  IF  H .LE.  5 
IF  (B  .IE.  5) GOTO  1000 
DO  130  1=4, MAX, 2 
XX  = A (I)  »SCET  (BH  (I)  ) 

II  « A (1-2)  »SQRT  (BH  (1-2)  ) 

ZZ  « A (1*2)  *SQBT  (BII(I»  2)  ) 

0(1)  = 0(1-1)  •XX/(XI*II)  ♦ Q (IH)  *XX/ (XXfZZ) 

130  COHTIHOE 
GOTO  1000 
500  CCBTIHOE 
C THIS  SICTIOH  FOB  HA=HB 
C FLCB  DISTBIBOTION  AHD  POBOSIII 
C A-SEGHEHT 

SOB  > 0.0 
El  = 0.0 
DO  510  1=2, H, 2 
El  = El  ♦ A (I) 

510  SDH  = SOB  ♦ A (I)  •SQRT(HH  (I)  ) 

DO  520  1=2, H, 2 
Q(I)  = A (I)  »SaHT  (HH(I)  )/SDB 
520  CCHTINOE 
C B-SEG 

E2  = 0.0 
SOB  = 0.0 
HI  = H-1 
DO  530  1=1, HI, 2 
E2  = E2i-A(I) 

530  COHTIHOE 

C TBl  S0ECI7IDIHG  BASED  ON  SQBT(Efl) 

C — INSTEAD  OF  A*SQHT(BH) 

XX  = A (N-1)  ♦seal  (BH  (N- 1)  ) 

II  = A (N-3)  ‘SQaT  (BM(H-3)  ) 

Q(N-1)  = Q(H)  + Q(N-2)  »XX/(XX*II) 


DOM024 10 

D0H02420 

COH02430 

D0B02440 

DOH02450 

D0B02460 

COH02430 

D0MO2480 

EUB02490 

COH02500 

COB025  10 

D0HO2520 

DOBO2530 

C0H02540 

D0H02550 

DOB02S60 

C0RO2570 

CDH02580 

D0B02590 

tOH02S00 

DOB02610 

C0H02620 

DOBO2630 

D0RO2640 

CDH02650 

C0M02660 

C0H02670 

D0M02680 

COB02690 

C0H02700 

C0H027  10 

C0E02720 

CDH02730 

CDH02740 

EOH02750 

D0H02760 

CDB02770 

COH02780 

D0B02790 

COH02eOO 

D0R02810 

COB02820 

DOR02S3O 

COB02840 

E0E02850 

C0H02860 

COR02070 

[0802880 

DUE02840 

CDS02800 

CUH02910 

COBO2920 

DDM02930 

COHO2940 

C0E02950 

E0H02960 

E0H02970 

EDE02980 

EOB02990 

EDE03000 

EOB0  30  10 

COR03020 

COB03030 

EOBO  3040 

EOR03050 

EOH03060 

DOM03070 

D0H03060 

EIII10  3090 

DUB03100 

COHO  3 1 10 

D0803120 

COBO3130 

E0803140 

CUB03150 

CDH03160 

EOH03170 

D0H03180 

COH03  190 

C0R03200 
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XE  = A ( 1)  ♦SQRT  (HR  (1)  ) 

CUB032  10 

IT  = A (3)  »SfiBT  (BB  (3)  ) 

COH03220 

Q(l)  = Q(2)»E1/(EE*II) 

E0903230 

8AE  = N-3 

CDE03240 

C DOH'T  NEED  rOLLONINGir  N .IE.  « 

D0H03250 

IF(  R .IE.  4)  GOTO  1000 

DOR03260 

DO  540  I-3,HAE,2 

CUB03270 

EE  = A(I)»SQRT(Bn{I)) 

C0H03280 

II  » 1(1-2)  •SQHT(BH(I-2)) 

COH03290 

ZZ  » A (It2)  •5QBT  (RU  (I»2) ) 

D0H03300 

QU)  • 0(1-1)  •EE/(EX»ri)  ♦ 0 (I*  1)  »EV  (EEtZZ) 

CUH033  10 

5U0 

CO  RTIRUB 

COB03320 

1000 

BEIOBR 

00803330 

EBt 

00B03340 

C 

COB03350 

C 

CUH03360 

C 

EDH03370 

SOEBCOTIRE  VOID (OTDP,B HOI ,BH02 , EBAB, EES) 

C0R03380 

PI  = 2.0*ABSIR(1.0) 

00N03390 

A1  > 0.3463 

COB03400 

A2  * 0. 4273 

BUB03410 

A3  » 2.4509 

C0803420 

A4  =»  2.2011 

D0BO3430 

ALP  » 0.5«DTDP*  A2 

CDB03440 

B = (A3  - A4)  »Pl»DTDP/2. 0 

C0H03450 

C • A3  • PI  • OTDP  / 2.0 

CnB03460 

A = A1  » (1.0-EEAB)  ♦ EEP(-1.0»ALP) 

E0B03470 

ccc 

HR  IT E (6,2000) A.ALP.B.C ,DTDP 

Clin03480 

R2  - BU02 

C0R03490 

HI  » BB01 

COB03500 

VALE  > 0.0 

DOB03510 

» ’ 0.0 

E0B0352D 

TEST  » 1.0-0.5/DTDP 

DUR03530 

IF(BR02  .IE.  TEST) GOTO  100 

COB03540 

C THIS  SECTIOS  TBEATS  OUTTEHHOST  ANRDLOS.  TOID  BETBEEN 

00R03550 

c 

BALL  ABD  0.2S0P  HAS  DIFFEBEHT  FORCTIOl.... 

COR03S6a 

TAEE  » 0.5  - 0.24479»(  1.0-EBAH) 

COB03570 

VACO  - 7ADD»D1DP  - 0.125 

DOB03580 

TACO  > TADD/ (0T1IP*0TDP) 

D0B03590 

B2  « TSSI 

10803600 

IFIBBOI  .GE.  TEST)  GOTO  200 

COBO3610 

100 

COHTIROE 

EOR03620 

Y « 0.5*EBAB*  (B2*B2-H1*B1) 

CDB03630 

ARG  • B-C»B2 

CDB03640 

F2  = AlP*COS(ABC)  - C*SIN(ABG) 

D0B03650 

P2  « F2  ♦ EEP(  ALP*H2  ) 

COBO  3660 

ABC  - B-C»B1 

CUNO  3670 

PI  =«  ALP*COS(ABG)  - C»SIR(ABG) 

CUH03680 

PI  = F1»EEP  ( ALE»B1  ) 

DUB03690 

Y = Y ♦ (F2-F1)  »A/ (ALPPALP  ♦ C»C) 

CUBO  3700 

200 

YYCID  » 2. 0»  (Y  ♦ YADO) 

D0B037  10 

YTOT  « RH02»BH02  - BH0MBB01 

C0H03720 

EPS  = YYOID/YTCT 

CUB03730 

C2000 

FOHHATC  A,  ALP,  B,  C,  OTDP  . . . 4 (2E  ,B  1 1 . 4)  ) 

EOB03740 

BETUBB 

C0H03750 

END 

DDB03760 

C 

DOB03770 

C 

EOB03780 

SOBBOBTINE  BIX  1 (NA , RB,  Q,  V) 

COH03790 

C THIS  SDEBOOTINE  DETEBIURES  BBIGHI  FACTOBS  FOB 

E0B03800 

C HIEING  AT  ARRDIUS  IRIETS 

EDB038  10 

OIFENSION  Q(100),B(100) 

D0N03820 

N » NAfNB 

COB03830 

IP(NA  .LE.  N8)  GOTO  20  0 

DDB03840 

C THIS  SiCTIOR  FOB  NA  GT  HD 

EUH03850 

C SBED  1EIGHT5  FOB  ODD  NOflBBBBO  SECHEBTS 

EDP03860 

B(N)  » 0.0 

EOH03870 

i (1)  = 1.0 

EOBO  3880 

N2  * N-2 

EUB03890 

DO  10  1-3, N2, 2 

CBR03900 

11  - N2  - I ♦ 3 

C0B039  10 

H(I1)  = ( Q(I1*1)  - (1.0-B(I1*2))  »Q(I1*2)  )/Q(I1) 

D0B03920 

10 

CONTINUE 

EUB03930 

GCTC  1000 

EUPO  3940 

200 

COBTINOE 

EOB03950 

C THIS  SECTION  FOB  NA  = HB 

EUH03960 

C RBED  HEIGHTS  FOB  E7E9  HOHBEfiED  SBGflENTS 

EDS03970 

N(N)  - 0.0 

EOB03980 

N2  - N-2 

EOH03990 

DO  300  1-2, N2, 2 

COR04OG0 
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II  = 2-r*N2 

“(H)  = ( Q(U*1)  - {l-0-*(I1*2)J  •Q(I1*2)  J/Q(I1) 

JOO  COmiNOE 
1000  COBIINUE 
BE10BB 
EMC 

SDBBCOTISE  BIX2  (ITRBBS , H* , »B ,Q, 8 , C.TSALl , AlP) 
DIBEBSIOB  i(100),Q(100),C(100) 

C THIS  SOBROOTIHB  DETEBHIHBS  ANNOlUS  lALET  COHCEIITBATIOHS 
C ITBABS=0">A  TO  B THANSITION 
C ■1»«>B  TO  A IBABSITIOR 


B « IA*HB 
C ASSOBE  BA  ^ NB 

C NOTB--OSIBG  C ABBA!  TO  HOLD  T-TALOES 
500  COBTIBOB 
C THIS  SICTICH  FOB  SA=BB 

IFdlBABS  .BE.  0)GOIO  700 
C A TO  E TBABS 

C B'S  ODD  BOHBEBED  SDBSCBIPTS 
C(l)  - C(2) 

HI  - B-1 
DO  600  I«3,B1,2 

C[I)  - (1.0-H(I*1))«Q(I*1)*C(I*1) 
C(l)  • C(I)  ♦ B (1-1)  »a  (I-l)  *C(I-1) 
C(I)  / fid) 


600 

700 
C 
C 

c 
ccc 
ccc 


300 


C(l) 

COBTIBOB 
BETBBB 
COBTIBOB 
B TO  A TBABSITIOH 
A'S  EVER  BUBBEBED  SDBSCBIPTS 
DSE  HEAT  BAL  TO  CALC  OUTEBBOSI  TBBP 
XX  » 8XP(  -1.0  » ALP  ) 

C(B)  • TBALL  ♦ ( C(B-1)-IBALL  ) *XX 
C (B)  » C (B-1)  • 

B2  • H-2 
DO  800  I»2,H2,2 

C(I)  = i(I)»C(I*1)  ♦ ( I.O-I(I)  ) »C  d-1) 
CCBIIBOB 
RETOBB 
EBD 

FOBCTIOB  HiALL(T,BE,  DP) 

T IS  IB  DBGBEES  CELSIOS  

OSE  I E B CQBBELATICB 

'•0.  80 

12.693 


PACIOR 

« 0.18  • RE**0. 

80 

ZRAIS  > 

0.  1663*  (T*273. 

15)  ♦ 12 

2KAIB  * 

ZBAIR* 1.0E-6 

RWAIL  » 

0.  1»FACI0B  » 2 

KAIR/DP 

RB70BH 

znz 

POKCTIO 

H HPELl  (T, BE, DP) 

: 

COBBEL... 

ZKAIB  > 

0.  1663*  (T*273. 

15)  ♦ 12. 

ZKAIB  « 

ZKAIB  * 1.0B-6 

CCC 


CEBO  » 6.6385E-5 
PB  « CPBO/ZKAIB 
PB  > 0.66 

FACTOR  » PB*»0. 33333 

FACTCH  = 2.0  ♦ 0.6»SQBT(B8)  »EACTOH 

HPELl  » FACTOR  » 2EAIH/DP 

BETOBB 

EBB 

SDBBCDTIBE  CEILIH (ITBA BS, N , 0 ,T , B A , 8B, B , EP S , A XS ) 
DIBEBSIOB  BPS (100)  ,AXS (100)  , T ( 1 00) , fi  ( 10 0 ) 

DIPEASICH  XSIIAFE  (5) 

DIBEBSIOB  BA  ( 100)  ,RB  (1  00)  , a ( 100) 

COEBCB  /HX/  HP,Hi,DT,OP,CP,TlALL,G,iEIGUT,ISHAPE,APELL 
DATA  XSBAPB  /l.O,  0.6667,  3*  1.0/ 

ITBANS  .Eg.  1==>BB'BE  IB  A 
.EQ.  0==>BE'BE  IB  B 

DEFIBE  BOBERICAL  INTEGBATIOS  PABABEIEBS 
Dll  • 1.0 
PI  * 3. 1616 
DZ  = 0.816*DP/D1? 

IZBAl  » DIT 

IF(I1EANS  .Eg.  0)  GOTO  500 
THIS  SECTICH  FOB  A-HAIF-CELL 
ALBEACI  BATE  ISLET  TEBPS... 

DO  100  IZ=1, IZBAl 


C0BO6O1O 

EUB06020 

C0B06030 

COB04060 

0DB06050 

D0P06060 

C0B06070 

D0B06080 

CDB06090 

EOP06100 

EOB06  1 10 

DDB06120 

DDB06  130 

B0EO616O 

CDB061S0 

DDE06160 

C0E0617O 

COB06160 

C0E0619O 

CDB06200 

CDB06210 

EDB06220 

0OEO623O 

DDE06260 

C0E06250 

C0R06260 

CDB06270 

DUB06280 

CDB06290 

COE06300 

DOB063  10 

C0R06320 

C0B06330 

C0P06360 

COB0635O 

DDB06360 

D0806370 

COB06380 

CDB06390 

CDB06600 

C0B066ia 

CDB06620 

COE0663O 

CDB06660 

DUB06650 

CDR06660 

COPO  9670 

CUS06680 

CDP0U69O 

IUB06500 

E0B065  10 

CUB06520 

CDB06530 

COH06560 

CDE06550 

CUB06560 

E0E06570 

COBO650O 

COE06590 

COB06600 

D0B06610 

CnB0662C 

DUP06630 

IOB06660 

CUP06650 

CUB06660 

C0B06670 

IOB066E0 

CDB06690 

CUH06700 

COB06710 

C0H09720 

COP06730 

CUP06760 

C0B06750 

Cnp06760 

EDB09770 

D0S06780 

EDB09790 

E0B06800 


n n 
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C CALC  SOLID  TEBFS  AS  ATG  OF  SOBBCDSDING  FLDIDS 
T(1)  = T(2) 

BAI  » N-1 
DO  50  I»3,HAI,2 

T(l)  = 0.5»(  T(I*1)  ♦ T(I-1)  ) 

50  COHINOS 
C HOB  FLUID  TEflPS 
C BALL  AHD  FLOG  2 OIFPEPBHT 

DTDZ  ’ HB»PI*OI«  (IBALL-T  (H)  ) 

AP  = (1.0-EPS  {«)  J *AXS(H) 

AP  » XSHAPE (ISBAPE) »0. 25»APEIL»PI»DT»DT*AP 
DTDX  = DTDZ  - BP*AP*(  T(B)-T(B-1)  ) 

IX  = Q(H)*CP»G 

T(«)  « T(H)  ♦ DZ*DTDVII 

XX  « Q<2)«CP*G 

AP  « (1.0-EPS(2J  ) *AXS(2| 

AP  » XSBAPE  (ISHAPE) •0. 25»APELL»PI»DT*DT*AP 
DTDZ  - BP»AP*  ( T (3)-T(2)  ) 

T|2)  « T(2)  * DZFDIOZ/XX 
1=2 

BAX  « B-2 
DO  60  1=4, BAX, 2 
XX  = Q(I)*CP*G 

APTOP  = XSHAPE(ISBAPE)  •(1.0-EPS(I*1))  »AXS(I*1) 

APBOT  » XSHAPE(JSBAPE)  *(1.0-EPS(I-1))  •AXS  (1-1) 

DTDZ  « APTOP*(  1(I»1)-T(I)  ) - APBOT»(  T(I)-T(I-1)  ) 
DTDZ  » DTDZ»HP»0. 25*APBLL»PI»DT»DT/XX 
T (I)  = T (I)  ♦ DZ»DTDZ 
60  COATINOE 
100  COATIBOE 

BOB,  BABE  OUTLET  FLOID  TEBPS,  BUT 
BUST  CALC  BEB  SOLID  TEBPS. 

T(1)  = T(2) 

BAX  = H-1 
DO  110  1=3, BAX, 2 
T(I)  = 0.5*  (T  (1  + 1)  *1(1-1)) 

110  CORTINOE 
GOTO  1000 

C THIS  SICTIOH  FOB  B-HALF-CBLl 
500  COlllMOE 

DO  600  IZ=1,IZBAX 
C CALC  SOLID  TEBPS 

T(B)  • BEIGHT*TBALL  ♦ ( 1 . 0-BEIGHT)  *T  ( H-1 ) 

BAX  » H-2 

DO  550  1=2, BAX, 2 

T (I)  - 0.  5*  { T (I*  1)  *T(I-1)  ) 

550  COHIIBOE 

C HOB,  fIND  PLOID  TEBPS 

C CEHTEB  PLUG  DIEFEHEHT 
XX  « a(1)  •CP*G 
AP  = (1.0-EPS  (2)  ) »AXS(2) 

AP  = ISaAPE(ISHAPE)*PI*0.25*APELL*DI=DI»AP 
DTDZ  - HP*AP*  ( T (2)-T(  1)  ) 

DTDZ  > DTDZ/XI 

T(1)  = T(1)  ♦ DZ»DTDZ 

BAX  » H-1 

DO  560  1=3, BAX, 2 

XX  = 0(I)»CP»G 

APTOP  = ISHAPE(ISHAPE)  • (1.0-EPS  (1*1)  ) *AXS  (1*1) 

APBOT  = ISHAPE  (ISBAPE)  » (1.  O-EPS(I-I)  ) »AXS  (1-1) 

DTDZ  = APTOP*(  T(I*1)-T(I)  ) - APBOT*  ( T(I)-T(I-1)  ) 
DTDZ  « DTDZ«BP*0. 25*APELL*PI*DT*DT/IX 
T (I)  = T (I)  ♦ OZ*DTDZ 
560  CCITINOE 
600  CQHTIHDB 

C HOB,  HIED  OOTLBT  SOLID  TEBPS 

C SEE  HCTE  AB07E  BE:  CDTEBBOST  PLUG 

T(H)  - BEIGBT»TBALL  ♦ ( 1 .0-BEIGHT)  *T  ( H- 1 ) 

BAX  = H-2 

DO  610  1=2, BAX, 2 

T(I)  = 0.5»  (T  (1*1)  *T  (1-1)  ) 

610  COHTIHUE 
C THAT'S  IT  I II 
1000  BETOBH 
BHD 


DOH04810 

DDH0U820 

DOB04830 

C0H0484a 

D0B0U850 

DOH0U860 

CUB0U870 

DDB04880 

COH04890 

D0H04900 

DOB04910 

D0E04920 

COH04930 

D0B04940 

D0E0M950 

DDB04960 

DOHO097O 

C0H04980 

D0E04990 

DDB05000 

DUE05010 

DUB0S020 

D0B05030 

D0BO5040 

D0E05050 

DOB05060 

D0805070 

DOE05080 

DOB05090 

DOB05100 

DOBOS  1 10 

DOB05120 

D0B05130 

D0E05 140 

CDB05  150 

DDB05160 

DDB05170 

D0H05180 

DOH05  190 

DOB05200 

DOB05210 

D0B05220 

CUB05230 

DUE05240 

DOH05250 

BIIH05260 

DUB05270 

CDH05280 

CUB05290 

D0B0530a 

DOBO5310 

DUB05320 

D0B05330 

CUB05340 

D0B05350 

DDE0S360 

COH05370 

DOH05380 

DUH05390 

DOH05000 

DOH054 10 

DUE05420 

DDB05430 

DUB05440 

D0B05450 

DOH05460 

DOE05470 

EUB05480 

DDH05490 

C0H05500 

DUB055  10 

DDE05520 

C0a05530 

CDPO55U0 

DDH05550 
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D0B05560 

C0n05570 

DUnO550O 

D0P05590 


C A 

BAU-CBLL 

00  10  Ia2,N,2 

cnno5620 

BB  (1)  « R (I)  - BA  (1-1) 

D0n05630 

A(l)  ■ H(I)*B(I)  - RA(I-I)  *84(1-1) 

00005640 

10 

COBTINOB 

CUP05650 

C B 

BALP-CEIl, 

CU0OS66O 

BH (1)  « RB  (1)  , 

DDB05670 

A(1)  - BB(1)  «BB(1) 

CU0O566Q 

BAI  ■ N-1 

DUR05690 

DO  20  1»3,NAZ,2 

CUR05700 

BH(Z)  » BB(1)  - B(l-1) 

CUH05710 

A(l)  « BB(I)*R8(I)  - a (I-tj  *1(1-1) 

DU0O572O 

20 

CONTINUE 

DUn05730 

C ROB,  OeiERSIRB  PtOIS  AND  POBOSZIIBS  OP  A ARC  8 SSGS 

CUB05740 

C OBPBRCS  OR  RA  ARC  BB 

CUB0S7S0 

IP  (lA  ,LE<.  RB)  COTO  500 

DOR05760 

C THIS  SECTOR  FOB  BA  ST  RD 

DOR05770 

C FLOB  BISTBIBDtlOB  ABO  FOBOSIII 

D0B05780 

El  s 0,0 

tUB05790 

SOB  * 0,0 

COH05800 

DO  100  la1,R,2 

CU8056 10 

81  • B1  ♦ A (I) 

C0R05820 

100 

sun  * son  ♦ a (i) *bh(1)  *bb (i) 

CO0O503O 

DO  110  1*1, N, 2 

DUH05840 

Q(l)  « A (I)  *BB(1)  •Ba(I)/SOB 

cuBoseso 

no 

COKTIROB 

D0P05860'* 

C B 

SEGBERT 

00005670 

E2  • 0.0 

C0R05880 

son  • 0,0 

DU0O589O 

R1  ■ R-1 

DU0O59OO 

DO  120  1*2, HI, 2 

DUB0S910 

82  * E2*A(I) 

00005920 

120 

COITINOE 

D0n05930 

XX  « A(N-1)*  RH  (R-1)  *Ha  (R-1) 

00005940 

It  * A (R-3) *RR (R-J) *BH (R-3) 

00005950 

0(1-1)  * Q(H)  ♦ Q(R-2)  ♦XX/(XX*TI) 

00005960 

XX  « A (2)  *Bn(2)  *BB  (2) 

CU0O597O 

IT  * A (4)  *RB  (4)  *8n  (4) 

DU0O59BO 

0(2)  • 0(1)  ♦ Q(3)  *XV(XX*TX) 

CO0O599O 

HAI  * H-3 

00006000 

C DON'T  BPED  POLLOBING  IP  R • l£.  S 

CU0O6O  10 

IP  (N  .LE.  5)G0T0  1000 

D0P06020 

DO  130  1*4, RAX, 2 

CU0O6O3O 

11  » A (I) •RH  (I) ♦BH  (I) 

CU0O6O4O 

II  * A (1-2)  *011  (1-2)  •Bfl  (I-2J 

CU0O6O5O 

ZZ  * A (I»2)  •RB  (I»2)*Pfl  (I*2) 

DUB06060 

Q(l)  * Q (I-l)  *11/ (Xini)  ♦ Q (!♦  1)  •XX/ (II*Z2) 

COB06070 

130 

COBTIBOE 

COR06080 

GOTO  1000 

CU0O6O9O 

500 

CONtlNOE 

DO0O6  100 

C THIS  SECIIQR  PQB  BAsBD 

CU006  1 to 

C PLOi  DISTRIBOTIOR  AND  POBOSITZ 

CO0O612O 

C A- 

SZGRERT 

CU0O613O 

SOB  * 0.0 

DU0O614O 

El  « 0.0 

CUR06  ISO 

DO  510  1*2, R, 2 

COR06  160 

81  - 81  ♦ A(I) 

CU0O6  170 

510 

sun  * son  • a (i) *88(1)  *bh(I) 

DUR06180 

DO  520  1*2, N, 2 

CU0O6 190 

Q(I)  * A (I)  •BB  (I)  *88  (I)/SOa 

DU0O62OO 

520 

C0BT1RU8 

CU0O621O 

C B- 

SEG 

CUR06220 

E2  » 0,0 

CUR06230 

SOB  * 0.0 

DU0O62QO 

N1  » H-1 

DU0O625O 

DO  530  1*1  , N1, 2 

0IIR06260 

E2  * E2*A(I) 

DU0O627O 

530 

CONTINUE 

CU0Q62OO 

C TBT  SOeCiyiDING  BASED  ON  SQBT(BB) 

CU0O629O 

C 

— INSTEAD  Of  A«SQBT(an) 

10006300 

IX  » A (H-1)  ♦RH  |N- 1)  ♦RH  (N- 1) 

DU0063 10 

II  » A (N-3) *RH  (H-3) •an  (N-3) 

CO0O632O 

0(1-1)  * Q(N)  ♦ Q(R-2)  •tX/(Xl»II) 

D0RQ6330 

XX  « A ( 1)  *811  ( 1)  •nn  (1) 

CO0O634O 

IT  * A(3)*Rfl(3)^nH(J) 

DU006  350 

0(1)  » 0(2)  •ix/(xxni) 

OU0O636O 

BAl  • N-3 

DU0O637O 

C OOR'T  lEED  POLLOR1II6IF  N .LB.  4 

CU0O638O 

1P(  B .LE.  U)GOTO  1000 

DUR06390 

DO  540  l«3,flAl,2 

C0B06400 

S08HCUTIRE  AN B ( « A, NB, Q, fl, A, B 1, Z2, HA, R 0) 
DIHBNSION  BA  (100) ,RB  (1 00) 

DIBIBSIOH  0(100) , 0 (100) , BH  ( 100) ,A  (100) 

CAIC  BTORAULIC  BADII,  AND  AHBAS 
N « BA  ♦ NB 


540 

1000 


»»  - X 'no  (1) 'on  (1) 

II  = A (1-2)  «RH(I-2)  »BH  (1-2) 

ZZ  = A(I*2)»aH(I»2)*BH(I*2) 

0(1)  = 0 (1-1)  *AI/ (H*tT)  ♦ Q (I*  1)  »XI/ (IH.Z2) 

CCBTXliUB 

RElOfiB 

BNC 


DUBOeq 10 
CUB06tl20 
CUH06430 
COn06M(lO 
D0S06tJ50 
C0fl06460 
D0R06470 
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Steady-state  Reaction 

Iha  procedure  here  Is  a„el„g„„s  „ a,  steady-stare  heat  dis- 
persion program.  The  attached  program  can  simulate  either  wall-cooled 
or  adiabatic  reactors.  Details  are  con-e„ted  in  the  listing. 
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C PBOGHAn  HAflE  'H1HSS2  POHTEAH' 

c iHEAis  1-sT  oaosa  iHiaissic  kihetics 

c 

C THIS  aOH  FOB  DATA  OF  TEST  CASE 
C 

C LAST  DPOATE/OSE  OH  26  JULI  85 

DIEEBSIOS  0(100)  , B (100)  ,A{100)  ,7EL  (100) 

DiaEBSIOIl  S(100)  ,C(100)  ,1(100) 

DIBEBSIOB  BA  (100) , 38(100) 

DI3EBSXON  BSLOB(IOO) 

COHBCa  /BATE/  ZK0,GG 

COBBOH  /am/  DEL3,  DEFF,  HHO , CP,  BETA 
COBflCM  /HI/  BP,  BH,  TBAU,  dT,  DP,  TPSP 
C THIS  PHOGaAB  CILCOLATES  FLOHS  ABO  COMCEHTaAlIOBS  GI7EB 
C ABBOLOS  DIBEBSIOBS. 

C 7ABIABLZ  ••IFLAG** — IP  0 »«>  ADIABATIC  BEACTOB 
C OTHIHBISE  ”>  COHSIABT  TBAIL 

C (SEE  'CELLIB'  FOB  BOBS  DETAILS) 

DATA  IFLAG  /I/ 

C 

C OSE  CGS  OBITS 

C T2HP»DEG  KELYI3... 

C CCSC»fl0l/Ca*»3  ... 

c 

c 

DATA  MLOHG,aPBIHT  /100,5/ 

^ IFI^-IALIZE  COSCSSTHAT IOB  AMD  TEBPEBATOHE  PHOFILES 
DATA  C /100»2.0E-8/ 

DATA  T /100*800.0/ 

DATA  a /100«0.0/ 

C BEACTIOB,  HEAT  THAHSFEH,  ETC.,  DATA.  . . 

CIS  « C(l) 

TIB  - 1(1) 

ZKO  > 4.5  E8 
GG  - 1.2E4 
DELH  > 2.4E4 
DEFF  • 0.001 
BBO  - 9.5  E-4 
C?  - 0.25 

HP  - .00141 

HB  » .2 

CCC  HP  = 6.32E-4 

CCC  HB  = 3.  17E-4 

TMALL  = 400.0 
DT  = 3.8 

DP  = 0.6 

7PSP  = DP/6.0 
CCC  QTOT  = 81.80 
QTCT  =•  818.0 
BETA  =■  DELH/  (BHO»CP) 

IF(IFLAG  .EQ.  0)  IBITE(6,3060) 

IP(IFLAG  .HE.  0)  aBITS(6,3070)  TBALl 
C CALC  ABSAS  BASED  ON  DTDP  AND  EA 
DTDP  = DT  / DP 
DO  10  I«1,100 
10  i(I)  « 20.0 

CCC  Z « DTDP  ♦ 0.5 

C HOB,  THE  ASSIGNING  NO.  CELLS  BASED  OH  COBBEIATIC N. . . 

Z » DTDP/0. 816  ♦ 0.5 
H » Z 

z = s 
Z = 0.5*Z 
NB  = Z 
HA  = N-HB 

C BESTHICT  TO  E7EN  NC.  SEGBENTS 
I?  (HA  .GT.  HB)  HB  = HA 
H = BA*NB 

BBITE  (6,  2020)  DTDP,H,NA  ,HB 
C SIZE  EACH 

C SET  OP  TO  DO  IHCBEASING  EA'S... 

C SIZE  E7ENLT  SPACED  BADII 
ZN  = N/2 
DELS  “ 1.0/ZN 
a (2)  = DELB 
DO  80  1=4, H, 2 
a (I)  = a (1-2)  ♦ DELa 
80  COSTINOE 

C DETEaaiHE  EPS  FOB  EACH  SEGHEHT 


BIN00010 

BZN00020 

BXN00030 

BXN00040 

BXNOOOSO 

BXN00060 

BXH00070 

axNOOoao 

EXN00090 

BXNOO 100 

BXH00110 

BXH00120 

BXN00130 

BXN00140 

BXN00150 

BXNOO 160 

BXN00170 

BXNOO  180 

BXB00190 

RIN00200 

BXN00210 

BXH00220 

BXB00230 

BXN00240 

SXN00250 

BXN00260 

BXH00270 

BXN00280 

BXH00290 

BXN00300 

aXN00310 

BXN00320 

BXN00330 

BXN00340 

BXN00350 

BXN00360 

EXN00370 

BXH0Q3a0 

BXH00390 

BXN00400 

BXN00410 

BXN00420 

EXN00430 

BXH00440 

BXN00450 

BXN00460 

HXS00470 

BXH0C430 

BXN0C490 

BXNOOSOO 

BXH00510 

BXN00S20 

BXN00530 

BXH00S40 

EXH00550 

BXN0QS60 

BXH00570 

EXN00580 

BXH00590 

BXN00600 

BXH00610 

RXH00620 

BXN00630 

BXB00640 

FXN00650 

BXN00660 

BXS00670 

BXH00680 

BXH00690 

BXH00700 

BXN00710 

BXS00720 

BXH00730 

BXN00740 

BXN00750 

BXN00760 

BXN00770 

BXH00780 

BXH00790 

BXN00800 
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EBAR  = 0.3500 

C YOIO  FRACTIOH  OP  FIRST  SESaEST 

CALL  YOID(DTDP,0.0,R(2)  .EBAR.El) 

1=2 

BRITE(5,2010)  I, El 
100  HA(1)  = (1.0-E1)»B  (2)»R(2) 

HA(1)  = SQRI(  Ri(1)  ) 

HA  (2)  = R(2) 

HB(1)  = E1»R(2)  *0(2) 

HB(1)  = SQRT(  HB(1)  ) 

SB(2)  = H(2) 

3AI  = »-1 
DO  120  1=3, BAX, 2 

C 70ID  FRACTIONS  OP  RADIAL  CELLS  BASED  ON  COHBELAIION 
RB02  « atI+1) 

HHC1  = a (1-1) 

CALL  T0ID{DIDP,Ba01,aa02,EBAH,EHAT) 
la  ■ 1*1 

»aiTE(6,2010)  IW.EHAT 

IX  - a(i*i)»H(i*i)  - a (1-1)  »H(i-i) 

RA(I)  « (1.0-EHAT)  »IX 

HA(I)  » R(I-1)  •H{I-1)  ♦ RA(I) 

RA  (I)  » SQHT  ( HA (I)  ) 

RA(ia)  = H(IR) 

HB (I)  = EHAT  ♦ XX 

RD(I)  = R(I-l)  •H(I-1)  ♦ aa(I) 

RB(I)  » SQRT(  aa(I)  ) 

RB(la)  = R(IR) 

120  CC5TINDE 
NAX  * N-1 
SBITE (6,2150) 

»aiTE(6,2160)  (RA  (I)  ,R(Itl)  ,1  = 1, BAX, 2) 

SHITE(5,2160)  (HB(I),R(I*1)  ,1=1, BAX, 2) 

CALL  ANH(HA,NB,Q,R,A,al,E2,RA,HB) 

N = NA^NB 
DO  200  1=1, N 

200  PEL  (I)  » g(I)/A(I) 

C WHITE  RESULTS 

WRITE  (6,2050) 

DO  300  1=2, N, 2 
J=I-1 

WRITE(6,2060)  I,A(I),Q(I)  ,TEL(I)  ,J,A(0)  ,Q(J),7EL(J) 
300  CORTINOE 

waiTE(6,2070)  E1,E2 
WRITE  (6,2150) 

WRITS(6,2160)  (R  (I)  ,1=1  ,N) 

CALL  HIX1  (3A,NB,Q,W) 

WRIIE(6,2170) 

SHITE  (6,2160)  (S  (I)  ,I=1,;|) 

N = NA  ♦ HB 

C NOW,  CALC  CONCEMTBATICNS 

CCC  WanE(6,2230) 

WRITE  (6,3050) 

NOON!  » 0 
NP  = 0 

500  KOUNT  = K0DNT*1 
NP  = NP  ♦ 1 
WRITE  (6, 2200)  KODNT 
IF(KCOHT  .GT.  NLONG)GOTO  1000 
C A-HALE-CELL 

CALL  CELLI3(1,N,QT0T,g,T,C,I?LAG,RA,HD,RGLCB,DELZ) 
IF(NP  .LT.  NPHINT)GOTO  550 
WHITE  (6,3000) 

WRITE  (6,3030) 

CABAH  = 0.0 

TAEAE  = 0.0 

RTOT  = 0.0 

DC  520  1=2, N, 2 

CAEAR  = CABAR  * C (I)  *13(1) 

TAEAR  = TABAH  ♦ T(I)»a(I) 

II  = 1-1 

WHITE  (6,2255)  II, T (II) 

RWRIIE  = RGLOB  (I)  ‘DELZ 
RTCT  = HTOT  ♦ RSSITE 
HRITE(5,2250)  I,C(I),T(I)  ,HWHITE 
520  CCSTINOE 

WHITS  (6,3040) CAB  A a, TAB AH, HTOT 
C 

C0N7  = 1.0  - CABAR/CIN 
WRITS  (6,3045)  C0N7 


EXNOOe 10 
BXNOO02O 
RXN00830 
BXS00840 
RXN00650 
EXN00860 
BXN00870 
RXN00880 
RXN00890 
BXN00900 
BXN00910 
RXN00920 
RXN00930 
EXN00940 
RXN00950 
RXN00960 
BXN00970 
RXN00980 
RXN00990 
RXN01000 
BXN01010 
RXNO  1020 
BXNO  1030 
RXNO  1040 
HXN01050 
RXNO  1060 
BXN01070 
BXNO  1080 
RXN01090 
RXNO  1 100 
RXN01110 
RXNO  1 120 
HXN01130 
RXNO  1 140 
BXR01150 
BXNO  1 160 
BXN01170 
EXNOI180 
RXN01190 
BXNO  1200 
BXN01210 
BXNO  1220 
BXN01230 
BXNO  1240 
HXN01250 
BXNO  1260 
RXNO  1270 
BXNO  1290 
EXN01290 
BXNO  1300 
BXN01310 
BXNO  1320 
BXNO  1330 
BXNO  1340 
BXN01350 
BXNO  1360 
BXN01370 
BXNO  1380 
RXNO  1390 
RXNO 1400 
RXNO  1410 
HINO  1420 
BXNO 1430 
BXNO 1440 
HINO  1450 
BXN01460 
BXNO  1470 
BXRO 1480 
RXNO  1490 
RXNO 1500 
BXNO  1510 
BXNO  1520 
BXNO  1530 
RIS01540 
RXNO  1550 
BXRO 1560 
BXNO  1570 
BXNO 1580 
BXNO  1590 
BXNO 1600 
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33U  LUHIiMUS 
C NOB,  SUING  AT  B-INLST 

CALL  31X2(0, SA, NS, g,B,C) 

CALL  SIX2  (0,NA,NB,g,B,T) 

CCC  laiTE  (5,  3010) 

CCC  SHITE (5,3020) 

700  CONIINOE 
C HOB  S-aAL?-C2LL 

CALL  CELLIH (0 , N, QTOT, 8 /T,C ,IfLAG ,3A, HB 
IP(SE  .LT.  NPHI3T)GOTO  750 
BHITE(5,3010) 

BBITS (5,3030) 

CBEAB  = 0.0 
TESAS  = 0.0 
RTOI  « 0.0 
DO  720  1=1, H, 2 
II  = I*1 

CBBAE  = CBBAB  * C(I)»Q(I) 

TBBAH  = TBBAB  ♦ T(I)=3(I) 

BSBITE  » DEL2  » BGLOB(I) 

HTOT  » BTOT  ♦ SSBITE 

BBITE  (5,2250)  I, C (I)  , T (I)  , BBHITE 

BaiTE(6, 2255)  11,1  (11) 

720  CC3TINOE 


BGLCB,OELZ) 


20  15 
2020 
2030 
2040 
2050 


2050 
2070 
2150 
2150 
2 170 
2230 


2250 
2255 
2260 
2270 
2290 
3000 
30  10 
3020 
3030 
3040 
3045 
30  50 
3060 
3070 


M11.9) 
'M3,' 


',13,  • HB  =',13) 


BBITE  (6, 3040)  CBBAH,TB8AB,  BTOT 
CCS7  = 1.0  - CBBAB/CIH 
BRITE(5,3045)  CONY 
NP  » 0 

750  CONTIHOE 
C NOB,  BIXING  AT  A-INLET 

CALL  31X2(1, N4, SB, 0,B,C) 

CALL  HII2(1,HA,SB,a.B,T) 

GOTO  500 
1000  CCNTISOE 
C FOBB4TS.  . . 

2010  FOBBATC  I -',14,  • EPS  ' 

POBSATC  ALPai  »',E11.4) 

FOBHAT('  DTDP  = ',211. 4, < 3 «',I3,'  HA 

FOBHAT  (•  01/B  »',E11.4) 

FOBBATC  F = *,211.4) 

FOBBAT(20I,'A',43X,'B',/,2X,40  (•-•),  2X,  40  (•-•) 

1 2(2X,'I',7X,'A',  11X,'F',9X,'7EL  ’,51),/, 

2 IX. 2{' ',2X.3C '.2X))) 

FOBBAT(1X,2(I3,2X,3(E10.4,2X))  ) 

FOBBATC  El  = ',211.4,'  22  = ',211.4) 

FOBBATC  HADII...') 

FCSBAT(5(2X,211.4)) 

FOBHAT  ('  BIXING  BHIGHT  FACTOES.  . .') 

F0SHAT(9X, ’A' ,30X, 'B',/,2 (2X,29  (•->) ) ,/, 

1 2X,2(1X,'I',8X,'C',7X,3X,  'C/CA7G',4I)  ,/, 

2 2X,2(' ',2X,' ',2X,' ’,2X)) 

023456789.1233456789.123456739. 123456789.123456789. 

2240  FOBBATC  CELL  NO  ',15) 

FCBBAT(I5,3  (2X.E13.6)) 

FOBBAI  (15, 15X,E13.6) 

FOBBATC  7A  = ',E11.4,'  2BEC  = ',E11.4) 

FOBBATC  CALC.  IS7ALI0  70ID  FHACT.  PGB  ABCBTED  •) 
FOBBATC  F =',211.4,'  SOB  =',211.4,'  BPS1  =',211.4) 
FOBBATC  A-BALF-CELL  ') 

FOBBATC  B-BALF-CELL  ') 

FOBBATC INLET') 

FOBBATC  ODTLET') 

FOBBATC  CBOLN  =',E13.5,'  TB0LK  = ' , E13. 6,  ' BTOT=' , E 13 . 6) 
FOBBATC  C0N7EBSI0N  = ',£13.6) 

FCBBATC  I...C...T...SAT2(B01E/SEC)...  •) 

F0BEAT(5('  »•),'  ADIABATIC  BEACTOB’.SC  •’)) 

F08HAT(5C  •'),'  iALL-C00L2D...ISALL(DEG-K)  = ',213.6) 
STOP  ' 

END 


C 


SUBEOOTINE  ANN(NA,NB,a,B,A,E1,E2,aA,HB) 
DIBESSI03  BA  (100) , BB (100) 

DIBENSION  Q(100),H(100),aa(100),A(100) 

C CALC  HIDBAOLIC  3ADII,  AND  AB2AS 
N = BA  ♦ NB 
C A HALF-CELL 

DO  10  1=2, N, 2 

BH(I)  = B(I)  - BA(I-I) 

A(I)  = R(I)»R(I)  - BA(I-I)  ‘BA  (1-1) 

10  CCSTI30E 


BXNO  16  10 

EXNO 1620 

BXNO  1630 

BXNO 1640 

BXNO  1650 

BXNO  1660 

BXNO  1670 

BXNO 1680 

BIBO  1690 

BXN01700 

BXNO  17  10 

BXNO  1720 

BXNO  1730 

BXN01740 

BXNO 1750 

BXNO  1760 

BXNO  1770 

BXN017S0 

BXNO  1790 

BXN01800 

BXN01810 

BXN01820 

BXNO  1830 

BXS01840 

BXNO  1850 

BXNO 1860 

EXNO  1870 

EXN01SS0 

BXNO  1890 

BXN01900 

BXNO  1910 

BXNO  1920 

BXNO  1930 

BXN01940 

BXNO  1950 

BXN01960 

BXN01970 

BXNO  1980 

BXN01990 

BXN02000 

BXN02010 

BXN02020 

BXN02030 

BXN02040 

BXN02050 

BXN02060 

BXS02070 

BXS02080 

BXN02090 

BXN02100 

BXN02  1 10 

BXN02120 

BXH02130 

BXN02  140 

BXN02150 

BXN02160 

EXB02170 

BXN02 180 

BXN02190 

BXN02200 

BXK022  10 

BXN02220 

BXN02230 

EX.H02240 

BXN02250 

BX502260 

RXN02270 

EXN02280 

BXN02290 

EXN02300 

BXN023  10 

BXN02320 

HXN02330 

FXK02340 

BXS02350 

BXB02360 

BXN02370 

BXN02330 

BXN02390 

BXN02400 


o n 
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C B BALJ-CELL 

BH(1)  = 38(1) 

A (1)  = 3B  (1)  •HB  (1) 
«AI  - B-l 


20 

C 

C 

c 

c 


100 

1 10 
c 


120 


DO  20  1=3, SAX, 2 
BH(I)  » SB(I)  - B(I-l) 

A(I)  - BB(I)»HB(I)  - H{I-1)  *8(1-1) 
COBTIHOE 

NOB,  DETEBHISE  ELOIS  AND  POBOSITIES  OF 
DEPENDS  OS  NA  AHD  NB 

IF(NA  .LE.  NB)  GOTO  500 
THIS  SICTON  FOB  NA  GT  HB 
FLOW  DISTBiaOTIOH  AND  POBOSITI 
El  - 0.0 
SDH  > 0.0 
DO  100  1=1, s, 2 
El  « El  ♦ A(I) 

SOB  » SOS  ♦ A (I)  •saaT(aati) ) 

DO  110  1-1, S, 2 
Q(I)  » A(I)»SQaT(BH(I))/SOn 
CONTISOE 
B SEGEEBT 
E2  » 0.0 
SOB  = 0.0 
NI  « H-1 
DO  120  1=2, Nl, 2 
E2  = E2*A(I) 

CONTINDE 


A AND  B SEGS 


II  » A(N-I)*SQBT(  aH(H-l)  ) 

IT  » A(N-3)»SQBT(  BH(»-3)  ) 

Q(H-1)  - Q(N)  ♦ Q(N-2)  *11/(11*11) 

XI  « A (2)  »S0BT  (BH  (2)  ) 

II  = A (H)  *8081(88  (H)  ) 

3(2)  -3(1)  ♦ 3(3J*II/(IX*II) 

BAX  = N-3 

C DON'T  NEED  FOLLOBISG  IF  N . DE.  5 
1F(S  .LE.  5)  GOTO  1000 
DO  130  I-«,BAI,2 
IX  » A (1)  *S0ai  (BH  (I) ) 

II  » A(I-2)  *8081(88(1-2)  ) 

ZZ  • 1 (1*2)  *3081  (8H(I*2)  ) 

3(1)  • 8(1-1)  *11/ (II*II)  ♦ 0 (1+1)  *IV  (H*ZZ) 
130  CCBTINOE 
GOTO  1000 
500  CCSTINOE 
C THIS  SECTION  FOH  NA=NB 
C FLOS  DISTSIBOTION  AND  POBOSITI 
C A-SEGNENT 

SD!  = 0.0 


E 1 = 0. 

0 

DO  5 10 

1=2, N, 2 

El  = El 

♦ A (I) 

510 

SOB  = SOB  ♦ A (I) 

*SaaT(BH(I)  ) 

DO  520 

1=2, 8,2 

520 

Q(I)  = 

A (I)  *Sg8T 

(8H(I)  )/SOH 

COUTINOB 

C B-SEG 

E2  = 0.0 
SOB  = 0.0 
HI  = S-1 
DO  530  1=1, Nl, 2 
E2  = E2*A(I) 

530  CCNTIHDE 

T8I  SDBDIVIDISG  BASED  ON  SOBT(EH) 

— INSTEAD  OF  A*S08T(8H) 

XI  = A (H-1)  *3081  (88(8-1)) 

II  = A (N-3)  *SOBT  (SH(!I-3)  ) 

O(N-I)  = 0(N)  * Q(H-2)  *XX/(II»II) 

XI  = A (1)  *SOBT  (BH  (1)  ) 

II  = A (3)  *SQRT  (BH  (3)  ) 

8(1)  = 0(2)  *11/ (XX*II) 

HAX  = N-3 
C DON'T  NEED  FOLLONISGIP  N . LE.  4 
IF(  N .LE.  4)  GOTO  1000 
DO  540  1=3, BAX, 2 
IX  = A (I)  *S0ST(8H(I)  ) 

II  = A (1-2)  *SOaT  (8H(I-2)  ) 

ZZ  = A (1*2)  *SQRT  (HH(I*2)  ) 

3(1)  = 3 (1-1)  »XX/ (XX*II)  ♦ 0 (1*1)  *11/ (XX*ZZ) 
Nun  rnuTTunw  / ' I ( 


8XN02410 

BXN02420 

BXN02430 

BXN02440 

8IN024S0 

BXN02460 

8XS02470 

BXN02480 

EXN02490 

8XN02500 

BXN02510 

SXN02520 

EXN02530 

BXN02540 

8X802550 

EXB0  2560 

8XN02570 

8X802580 

BXH02590 

8XN02600 

8XN026 10 

BXN02620 

8XN02630 

SXS02640 

8XN02650 

8XN02660 

BXN02670 

BXN02680 

BXN02690 

SXN02700 

BXN02710 

8X802720 

BXH02730 

BXN02740 

BXN02750 

81802760 

8X802770 

8X802780 

BXN02790 

BXNOiaOO 

EXN02B10 

8X802320 

BXN02B30 

BXN02940 

BXN02950 

BXS02360 

EXS02370 

5IN02980 

5IN02390 

8XN02900 

BXS02910 

BXN02920 

BXN02930 

BXN02940 

BXN02950 

BXN02960 

8X802970 

8XNQ2930 

8X802990 

8XN03000 

BIN030 10 

SXN03020 

8XS030  30 

8XN03040 

8X503050 

BXNO  3060 

8X503070 

BIN03030 

BXS03090 

8XN03  100 

3X503110 

BXN03 120 

3X503130 

3X503 140 

BXN03 150 

8XN03  160 

BXN03170 

BXN03 180 

8XN03190 

BXN03200 
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1000 

c 


aSTDSH 

£!ID 


CCC 


c 

c 


SOBBOOTISE  7010  (DTDP, H 30  1 , EH02 , EfliB.  2PS) 

PI  = 2.0*ABSIS(1.0) 

A1  = 0. 3463 
A2  =•  0.4273 
A3  = 2.4509 
A4  » 2.2011 
Alf  = 0.5*DTDP»  A2 
B = (A3  - 14)  •PI»DTDP/2.0 
C = A3  » PI  » DTOP  / 2.0 
A = 11  • (l.O-ESAB)  • 2IP(- 1.0»AL?) 

SB  IT  2 (6, 2000)  A,  ALP, a, C,  DTOP 
82  » HH02 
B1  > B3C1 
7ADD  = 0.0 
7 = 0.0 

TEST  » 1.0-0.S/DTDP 
IF  (B302  .LE.  TEST)  GOTO  100 

THIS  SECTI03  IH24TS  OtJTTESHOST  AHNOLOS.  7010  BETSEEH 
BALL  ASD  0.25DP  DAS  0IFFE8EHT  PONClioH.... 

VADD  « 0.5  - 0.24479«(  1.0-EBAH) 

7AD0  = 7A00»DTDP  - 0.125 
7ADD  = 7AD0/ (OTDP»OTOP) 

32  » T2ST 


100 


200 

C2000 


IP(aH01  .GE.  TEST)  GOTO  200 
CCHTINOE 

7 = 0.5*2BAa»(B2*B2-ai»Hl) 

ABC  » B-C*B2 

F2  » AL?*COS(ABG)  - C«SIH(ABG) 

F2  = F2  » EXP  ( ALP»B2  ) 

ABG  « B-C»B1 

FI  - Al?»CCS(ABG)  - C»SIH{ABG) 

FI  = F1*EXP(  ALP*ai  ) 

7 » 7 ♦ (F2-F1)*A/(ALP»AL?  ♦ C»C) 
770ID  » 2.0*(7  ♦ 7AD0) 

7T0I  « BH02»aa02  - HH01*B301 
EPS  = 770ID/7T0T 
FCBHATC  A,  ALP,  B,  C,  DTOP  . . 
BETUBN 
EHO 


,/,4(2I,E11.4)  ) 


C 

c 


SOBBCOTISE  HIX1  (HA,HB,  a,  ») 

C THIS  SUBBOOTIME  0ET2BMIMES  iEIGHT  FACTOBS  FOB 
C illllMG  AT  AHMDLOS  IMLETS 
DIM2SSI0H  a ( 100) , 8 (100) 

M = SAtMB 

IF  (NA  ,L2.  HB)  GOTO  200 
C THIS  SECTIOH  FOB  HA  GT  HB 
C MEEO  HEIGHTS  FOB  000  HOHBEHEO  SEGHEHIS 

a (M)  = 0.0 
8(1)  = 1.0 
H2  = H-2 
DO  10  1=3, M2, 2 
n = M2-I*3 

10  CONTIHOe'  “ (1-0-»(IU2))»a(I1*2)  )/a(I1) 

GOTO  1000 
200  CCMTIHOE 
C THIS  SECTION  FOB  NA  = MB 
C MEEO  HEIGHTS  FOB  E7EH  N0HBEH2D  SEGMENTS 
8 (N)  =0.0 
N2  = N-2 


00  300  1=2, H2, 2 
II  = 2-I*N2 
8 (II)  = (a  (11  + 1) 
300  CONTINOE 
1000  COSTIHOE 
BETOBH 


(i.o-8(in-2))  •adUE)  )/a(ii) 


EHO 


C 

C 

c 


c 


SUBB0UTIH2  11X2  (IT3 A MS , M A , M B , 3 , 8 , C) 
DI1EHSI0N  8(100)  ,a(100)  ,C(100) 

THIS  SUE300TIME  02TEBBIH2S  AMHOLOS  INLET 
ITaAHS=0==>A  TO  a TRANSITION 
= 1==>a  TO  A TBAHSITION 
N = HA+NB 

IF  (HA  .LE.  HB)GCTO  500 
THIS  SECTION  FOB  HA  GT  NB 


CONCEHTaATIONS 


BXN03210 

BXS03220 

BXN03230 

BIS03240 

EXN03250 

5XS03260 

aXH03270 

BXH032S0 

HXN03290 

BXH03300 

BXH033  10 

BXH03320 

BIN03330 

BXN03340 

BXN033S0 

E2H03360 

HXN03370 

aXN033a0 

HXN03390 

BXN03400 

BXH03410 

E2N03420 

BXN03430 

B2N03440 

BXN03450 

BXN03460 

BXN03470 

BXN034H0 

EZN03490 

BXH03S00 

EIN03S  10 

BXN03520 

BXN03530 

EXB03540 

BXN03550 

Bzao3seo 

BXN03570 

BZN03S80 

BXN03590 

BXN03600 

BXB03610 

BZN03620 

BXN03630 

BXN03640 

EIH03650 

BXN03660 

BIS03670 

EXN03680 

B1S03690 

aXN03700 

EXN03710 

aXH03720 

BXH03730 

EXN03740 

EIH03750 

BXN03760 

BIH03770 

BXN03780 

EIS03790 

BXN03800 

BXN038 10 

EZH03820 

RXN03830 

aXN03840 

BXN03850 

BXH03860 

BXN03870 

BXN03880 

EXNQ3890 

BXN03900 

SXH03910 

BXN03920 

BIS03930 

EXN03940 

EXH03950 

BXN03960 

BXH03970 

EXS0398Q 

BXN03990 

BZN04000 
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100 


IFdTHASS  .SS.  OlGOTO  200 
A TO  B IBANS 

B'S  ABE  EVEN  UOEBEBED  SOBSCHXPTS 
Ml  = N-1 
DO  100  1=2, HI, 2 

C(I)  = ( ' • 0-*  (!♦  1)  J «Q  (IH)  «c  (!♦  1) 

C(I)  = C(I)  ♦ a (1-1)  »Q(I-1)  •C(I-1) 

C(I)  =■  C(I)  / a{I) 

CCSTIHOE 
SETOBN 

200  CCSTTHDE 
C B TO  A THAHS 

C A'S  ABE  ODD  HOaBEEED  SOBSCBIPTS 
C (1)  « C (2) 

C(H)  » C(H-1) 

H2  « H-2 
DO  300  1=3, H2, 2 

cohtihoe’'“'’'‘^^’ 

BETDBN 

500  COHTINOE 
C IBIS  SECTIOH  FOB  HA=BB 

IF  (IIBANS  .HE.  0)GCTO  700 
C A TO  B IBAHS 

C B'S  ODD  HOHBSBBD  SOBSCBIPTS 
C(1)  = C(2) 

HI  = H-1 
DO  600  1=3, HI, 2 

C(I)  = {■>•  0-a  (1*1)  )»Q(I»1)  »c  (1*1) 

1(1)  » c(i)  ♦ B (I- 1)  *g  (1-1)  »c  (1-1) 

C(I)  » C(I)  / 0(1) 

COHIIHOE 
EETUEH 
COHTIHDE 

B TO  A IBAHSITION 
A'S  E7ES  HONBEBED  SOBSCBIPTS 
C(H)  - C(H-1) 

B2  - H-2 
DO  800  1=2, H2, 2 
C(I)  » B(I)»C(I  + 1) 

COHIIHOE 
BETOBH 
EHC 

FOBCTIOH  TCAT(C,T) 

COBHCH  /BATE/  ZK0,GG 

COBHCH  /aiH/  DSLH,  OEPF,  BHO,  CP,  BETA 
COBflCH  /HI/  HP,  HB,  THALL,  DT,  DP,  7PSP 
II  = 00  / (2.0»T»T) 

HJOHK  = HP/ (DELH'SCST ( DEF?) ) 

II  = HJUHE/(  C • S2BT(  IK(T)  ) ) 

DEIT  = 1.0/ (II  - XI) 

IF(DELT  .GT.  0)  GOTO  200 

BBlTMe^o”  I-IHEAai2ATI0M...0a  ELSE,  STABILITI  PBOt 

FCBBATC PGB  ABOBT  IH  FOHC  -TCAT / 

1 • BEIOHD  LIHSA3IZ.  HAHGE  • ,/, 

2 ' OH,  STABILITI  PBOBLEHS  '1 

STOP  ' 


300 


600 

700 
C 


800 


(I.O-B(I)  ) »C(I-1) 


100 


200 


CCHIIHOE 
TCAT  = T 
BETOBH 
EHD 


♦ DELI 


FOHCTIOH  XE(T) 

COHECH  /BATE/  2E0,  GG 
IE  = ZEO  / EXP(GG/T) 
BETDSN 
EHD 


7AaiAlLE'’”?7LAGi:“''‘^?v*f = 

?AHIA8I£  ••IFI.AG**  — IF  q *»>  ADIABATIC  RSACIOR 
OTHERMISB  »=>  CONSTANT  TiALL 
CCRNCN  /2IN/  DELH,  DBFf,  HHO,  CP,  E2TA 
CCaIKCH  /sate/  2K0,  GG 

COflHCH  /HX/  HP,  HW,  TSALL,  DT-  DP-  7PSP 
DIflESSICN  T (100) , C ( 100)  , Q ( 100) 

OIBENSIOR  HA(100),HD(100) 

DiaENSICS  aGLCB(IOO) 

S2T  OP  BOaEaiCAL  ISTEGRATIOaT  PABAaIZIEES 


BXNOaOlO 

BINOaOIO 

BXNOaOBO 

SZNOQ040 

BZNOaOSO 

SXH04060 

BXS04070 

BZH0Q08O 

BXN04090 

BXN04100 

RZN04 1 10 

6XN04120 

BXN04  130 

BXN0414Q 

BZN04 150 

BZN04160 

BIN04170 

aZR04 180 

BZN04190 

BZN04200 

BZH04210 

BXN04220 

BXB04230 

6XN04240 

BXN04250 

BXNOQ260 

BZS04270 

BXH04280 

BZM04290 

BZN043QQ 

BXB043 10 

BZN04320 

fiXN04330 

EZH04340 

BXN04350 

BZN04360 

BXN04370 

BXN04380 

BIN04390 

RIN04400 

8X904410 

BZB04420 

BXH04430 

BZN04440 

BXN04450 

BZN04460 

5XS04470 

EXN04U80 

BXN04490 

SXN04500 

EXN04S 10 

RXS04520 

BXN04530 

BXB04S40 

BXN045S0 

BXN04560 

BXN04S70 

BXR04S80 

BXB04S90 

BX904600 

BXN046  10 

BX904620 

BXN04630 

EXN04640 

EXN04650 

BXN04660 

BXN04670 

BXN04660 

SXH04690 

BXH04700 

BXS04710 

axs04720 

BXM04730 

HXS04740 

RXN04750 

BXN04760 

5XN04770 

BXN04780 

BXHa4790 

BXN04800 
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PI  = 
SDIY 


ITBAHS 


C B 

CCC 

C101 


DP  /XI 
“>B  HiLP-CBLL 
=>A  BAIP-CSIL 
0)  GOTO  1000 


iai6 
1 

XX  = HDIT 
DELZ  = 0.316 
= 0= 

.BE.  0= 

IPflTBANS  -HE. 

HAIF-CELI. 

*BIIE(5,  101) 

PCBHATC  ...IH  a-CALCHS...  ■) 

BAXIZ  = HDI7 
DC  500  12  * I.BAIIZ 
C CALC  PELLET  TEHPS 

CCC  SBITE(6.2000)  (I.  T {!)  , C (I)  . 1=.  1 , H) 

CCC 

C CALC  CCHC  OEBIVS  ABO  HEB  C’S  AMO  T'S 

IBEA  « 0.5  » BB  (1)  »HB  { 1)  •PI»0.25»DT*DT/TPSP 
CSTOIP  » ABEA  • S5BT(DEEr) 

BGLOB(I)  « CST0PP*C(1)  »SQ3T(  Xlt(T(2))  ) 

02LC  « DEL2*(-1.0»BGLOB(1)  ) / ( QT0T*Q(1) 

XIZ  = BHO*CP»Q  ( 1)  •QTOT 

?(i) : ?n,' : Selt'  ’ ” ’ ‘ 

HAX  = H-1 
DO  200  I>3,HAX,2 

ABOT  = BB  (1-1 ) »B3  (1-1)  - BB  ( 1-2)  •BE  (1-2) 

1 nriT  3 Q^5  ^ ABOT  • PI  • 0.25  • DT  * DT  / YPSP 
• SB  (1*1)  •as  (I»1)  - BB(1)«BB(I) 

=0.5  * AIOP  » PI  » 0.25  • DT  • DT  / ?ESP 
ABOT  • SQBI(  XX(T(I-1))  ) 

SCBT(  XX(T(I*1))  ) ♦ XX 

XX  • C(I)  » SQBT  (OEF?) 

* (-1.0*aGLOB(I)  ) / (SIOT»Q(D) 

. . ♦ DHLC 

ATOP=(T(I*1)-T(I)  ) ♦ ABOT*  (T(I-I)-T  (I)  ) • 

aao»cp»g  (I) »gioT  ' 


) 


ABOT 
ATCE 
ATCP 
IX  = 

XX  = ATOP  » 
BGLOS(I)  » 
DEIC  » DELZ 
C(I)  « C(I) 
DTDZ 
XIZ  • 


DTDZ  • HP  /XIZ 
DELT 


DELT  • DELZ 
T(l)  = T(I) 

200  COHTIMUE 
C HOB,  HIED  PELLET  TEBPS  AT  OOTLET 
CCC  BBITE(5,2000)  (I,  T (I)  ,C  (I)  ,1=  1 , H) 

BHITE(6,2000)  (I,I(I)  ,c  (I)  ,I=1,H)  ' ' 

DO  400  1=1, H 
BBITZ  (6,2000)  I,I  (I),C(I) 

CChllNOB 
C0STIIJ02 
BETUBH 
C 

1000  CONTINUE 

C T3IS  SECTION  FOR  A HALf-CSLI 

CCC  ianE(6,iooi) 

C1001  FOBHATC  ...IN  A-CLACNS.  . . • ) 

DO  1500  IZ  = 1,NDI7 
TS1C1D  » T(H-1) 

CHOLD  = C(H) 

C GET  PELLET  TEHPS 

CCC  BBITE(6,2000)  (I,T  (I)  , C (I)  , 1=  1,  H) 

CCC  ^“i!:,”®“<”''*’'®'’'''2TOT,a,T,C,IFLAG,HA,aB,TS10LD,CH101D) 
CCC  »BITE(6,2000)  (I,T(I),C(I),I=1,H) 

C CALC  CONCH  DEBI7S  AND  C’S  AND  T’S 
HAX  = H-2 


CCC 

CCC 

CCC 

C400 

500 


DT 


1140 


1150 


- BA  (1-2)  'BA  (1-2) 


DO  1200  1=2, HAX, 2 
I?(I  .GT.  2)GCTC  1140 
ABOT  = 0.5  • BA(l)»aA(1)  ♦ PI  » 0.25 
GOTO  1150 
COSTINOE 

ABOT  = SA(I-l)  *81  (I-l) 

ABCT  * 0.5  • ABOT  • PI  • 0.25 
CONTINUE 

ATCP  = aA(IM)  'BAd*!)  - BA  (I) 

ATOP  = 0.5  ♦ ATCP  • PI  • 0.25 
XX  = ABOT  • SQ3T{  XX(T(I-1)}  ) 

IX  * ATOP  • SC9T(  IK(T(I*1))  ) ♦ n 
SGLOB(I)  a XX  • C(I)  * SQRT(DBFF) 

DELC  a DELZ*  (“  1*  0 *5GL0a  (I)  ) / {QT0T*  3(I1) 

C (1)  * C (I)  ♦ DELC 

DTDZ  a ATCP*  (T  (IM) -T(I)  ) ♦ ABOT*  (T  ( I- 1 ) -T  (I)  ) 


DT  /7PSP 


DT 

'SA  (I) 

' OT  * 


DT  /7PSP 


DT  / 7PS? 


BINOaa  10 

6XS0U820 

BXH04d30 

PXNOaBao 

BXNoaaso 

BXNoaseo 

BXN0Q870 

RIS0U880 

EZNOaSSO 

BI504900 

8XN0491Q 

6X804920 

BXN04930 

BZN04940 

BXN049S0 

6X804960 

BXN04970 

6XN04960 

BZS04990 

BX80SOOO 

BZ80S0 10 

BZ80S020 

EIN0S030 

6X805040 

BXH05050 

BX805060 

BXN05070 

BIN05080 

6X805090 

6I80510Q 

BX8051 10 

EX805 120 

EX505130 

BXN05140 

FXK05150 

BXN05 160 

6XHOS170 

BZ905180 

BZN05190 

BZ60S200 

BIN05210 

6X805220 

6Z805230 

BI805240 

5X805250 

EI805260 

5X805270 

5X805290 

EI805290 

FXN0530Q 

BX805310 

BIN05320 

BX805330 

BXN05340 

BI805350 

BXN05360 

6XN05370 

51805380 

6X805390 

6X805400 

6X8054 10 

BZ805U20 

5X805430 

BX805440 

BXN05450 

BX805460 

BX.«i05470 

EXN05480 

61805490 

BXN05500 

6X805510 

61805520 

FXN05530 

BI805540 

RXH05550 

HX805560 

5XN05570 

EI805580 

5X805590 

BX80S600 


u u 
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1200 

c 


JIZ  = aHO»CP»C (I) »QTOT 
DELT  = HP  • DELZ  • DTDZ/II2 
T (I)  = T (I)  + DELI 
COaTIaOE 


.BA  (H-1)-BA(S-2)  ‘HA  (S-2)  )/7PSP 


1310 

ccc 

ccc 

C1400 


CCC 

1500 

2000 


C OOTSSaOST  PLOS  EPFECTED  BT  PALI  ALSO 
EE  = SOST(OEPP  » IS(T(H-11)  ) 

'**<*■')  *2i(S-l)  - 8A(N-2)*HA(H-2) 

ABEA  * 0.5  » PI  * 0.25  » OT  • DT  • HZ  / 7PSP 
SOICE(H)  = IX  * IB24  , c(),, 

°w  ' c'“  I ^ 

IPIIPLAG  .EO.  0)  GOTO  1300 
EIZ  « BHO  » CP  » Q(S)  » QTOI 
ALP  = PI  • Hi  • DT  / II2 
EE  « IK ( TS1QI0  ) 

IX  - OELH  * SQBT(DZrP*II)  • CHOLD  / HZ 

XI  ' “’";°j2S»DT»0T  »(aA(M-l,7HA(H-1,-HA(H-2).HA(N-2))  /7PSP 

DTCZ  - IX  - ALP  » 1 T(H)-TiAlL  ) 

T(H)  » T(H)  ♦ DBLZ  • DTD2 

GOT?‘?3iS^'* 

nO^^COBTIHS?'  HEACTOfl 

AHEA  • 0.5»PI»0.25»0T»DT 
ITZ  » HHO»CP»0  (S)  *qtot 

T(”  : 

COETIHOE 
DO  1400  1=1, s 
saill  (6, 2000)  I,T(I),C(I) 

CCSTISDE 

C HOI,  HEED  PELLET  TEaPS  AT  OUTLET 

II»T(I),C(I),I=1,H) 

HEtSm''''  '^®'2I,E13.6,2X.S13.6)) 

EHD 

COBHCH  /RIH/  EELH,  DEPP,  HHO.  CP.  BETA  ' 

COaaCH  /RATE/  ZKO,  GG  ' 

ccsaca  /hi/  hp,  hr,  tball,  di,  dp.  7psp 
VARIABLE  ITRAHS — I?  0 ==> 3-HA LP-CELL 
OTHESSISE  ==>A-3ALP-CELL 
ip(iira;is  .he.  O)  goto  900 
C THIS  SECTIOH  FOR  E-HALP-CSLL 
c CALC  PELLET  TEaPS 
SAl  = H-2 
DO  100  I=2,aAX,2 
TSTAR  = 0.5»(  T (1*1) +T  (1-1)  ) 

CSTAH  = 0.5»(  C(IH)*C(I-1)  ) 

,00  ° ICAT  (CSTAR, TSTAR) 

100  COHTIHUE 

C SOLID  PLOG  TEBP  — PCH  CP  BALL  TEHP 

IP  (IFLAG  .EQ.  0 ) GOTO  140 
EE  * IK  ( T (H-1)  ) 

El  = SQRT(DEPP*II) 

II  - DELH  * II  » C[H-1)  / HP 
IT  = 0.5  • GG  /(  I(H-I)  »T(H-1)  ) 

BCT  = II  » II  - 1.  1 
TOP  = T(H-l)  •(  II. IT  - 1.0  ) 

TOE  = TOP  - 0.1»T8ALL  - II 
T(H)  = TOP  / BOT 
GOTC  150 
COHTIHDE 

T (8)  = TCAT  ( C (S-1),  T (S-1J  1 

COSTIHOS 
HETOBN 

C THIS  SZCTIOH  ?03  A-HALP-CZLL 
900  CCSTIS02 

T(l)  = TCATl  C(2J  , T(2)  ) 

HAI  * N-1  ' 

DO  1 too  1*3, .TAX, 2 
CSTAH  * 0.5*(  C(I-1)+C{I>11  ) 

TSTAH  * 0*5»(  I (I- 1}  <-T  (!♦  n ) 

T(I)  * TCAT*  CSTAH, TSTAR  ) 


TOO. 


140 


150 


RX305610 
5ZS0562Q 
HX505630 
fiXHOf 640 
PXS05650 
SXN05660 
EIS05670 
aXN0S680 
BXH05690 
BXH05700 
BIH05710 
BIH05720 
BI505730 
3X905740 
RXB05750 
fiXH05760 
BXS0S770 
6X905780 
BXH05790 
EX905800 
BX905810 
BXH0S820 
BXM05830 
6X905640 
HXH05850 
BX905860 
BX905870 
BX905880 
SXH05890 
BXH05900 
BX505910 
HX905920 
BXN05930 
BXN05940 
BX9059S0 
BX90S960 
PX905970 
BXN05980 
BX905990 
6X9060Q0 
BXN06010 
6X906020 
BX906030 
EXS06040 
BX906050 
BXN06060 
FXN06070 
PX506080 
BIM06090 
BX906 100 
BX906  1 10 
BX906120 
EX906  130 
RX906140 
8X906 150 
BX906 160 
RXN06 170 
BXN06180 
BX906 190 
PX906200 
BX9062  10 
BI906220 
EX906230 
BX4NO624O 
HX906250 
BX906260 
BI906270 
BX906280 
BI906290 
5IN06300 
PZ9063 10 
BX906320 
BXS06330 
BX906340 
BI906350 
8X906360 
RX906370 
BX906380 
6X906390 
BI906400 
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1100  COHIIHOS 
BE70BH 
BNC 


EXR06U  10 
SXM06420 
BZR06a30 
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Steady-state  Reaction  (Ficklan) 

The  implicit  method  (Lee,  1985;  Hornbeck,  1975)  yields  tri- 
diagonal matrices  (of  dimension  equal  to  the  number  of  radial 
increments  plus  one)  which  must  be  inverted  at  each  axial  position  to 
yield  concentration  and  temperature  vectors.  The  matrices  are  simple 
to  invert  because  of  their  band  characteristic  (Hornbeck,  1975). 

The  attached  program  simulates  either  adiabatic  (hw=0)  or  wall-cooled 
(hw=value)  reactors.  Comments  within  the  listing  explain  other  program 
steps . 
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c PHOSHAH  HAI1B  'PICK2D  70ST81H* 

C 0S2S  PICXIAS  ASALOCI  PITH  HADIAl  OISPEHSICH  CHLI 

C TO  GET  COHCESTBATIOH  AHD  TEHPE3AT0BB  PHOFILBS  13  PACKED  BED  BEAClOB 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 


laPLICIT  BBAI,»8  (A-H.0-2) 
DIHEMSIOS  A(21),  B(21),  C(21), 
DIBEBSIOB  CQI.D(21),  CHEH(21I, 
COHHCH  /BIB/  DECAT,  TPSP,  DBIH 
»BITE(6,2000) 


B (21)  , CCA11(21)  , 
TOLD  (21)  , TIE?  (21)  , 
, HP,  ZKO,  GG,  CI3 


ACALI  (21) 
TCALL(21) 


TEST  CASE 


TABIABLE  LIH1T...IP  0-»>IO  DIEP'I  LIHITATIOS 
OTHEB?ISE—>IS  D1PP*B  LIHITATIO* 

LIBIT  a 1 
IHPOT  DATA 

DSB  C.O.S.  DlllSIIItl  (COICa«>HCL/CH»»3) 
{TEHP-«>DEGBBES  K) 


8DLK  ELDTD  PBOPS 
OIHT  - 197.0 
OSOP  - 79.0 
0 « OIHT 


HHO  • 9.5  D-« 

CP  » 0.25 

BAATE  CCaSTAHT  PABABS 
ZKO  a 4.5  D8 
GG  a 1.2  D4 

HEAT  OP  HBACTIOH 
DEIB  a 2.4  DS 

THE  ’BATE*  POHCTIOH  DEPIHED  TIA  EPPECTI7EIESS  PACTOB  AID 
IBTBIISIC  KIIETICS.  SEE  DEP'B  II  HOOTIHB  BELOB. 

OECAI  a 0.001 
DT  a 3.6 


DP  a 0.6 
TPSP  a DP/6.0 
C BED  PHOPEHTISS 
EBEO  a 0.90 
DSOP  a 3.5 
DIIT  a DSOP  / BBED 
DIPPB  a DSOP 
COBDH  a 0.00152 
C PILH  a. I.  COEPPS 
HP  a .0026 

C SET  H?aO  POB  ADIABATIC  BBACTOH 

H?  = 0.0 

CCC  a?  » .0025 
C IHLET  CCBDITIOIS 
CII  a 2.0  D-7 
TIB  a 600.0 
C BALL  TEHPEBATOBE 
TBALL  a IIS 
BHITE(6,20  10)  BB,  TBALL 
C BOHEBICAL  IITEGBATIOB  PABAHETEBS 
BDIT  a 5.0 
ZB  a 0.5»DT/HDIT 
ZL  a 0.10 
HBIDB  a bdIT  ♦ 1 
ZHAI  a 100.0 

C ZBBITE«a>DELTA-Z  AT  BBICH  TO  BHITB  HESOLIS... 

ZBHITE  a l.o-ZL 
C IHITIALI2E  PBOPILES 
DO  50  lal.SBIDB 
COLD  (I)  a CII 
TOLD  (I)  a IIS 
50  CQITIIOE 
Z a 0.0 


c 

c 

c 

c 

c 


pabts  op  A,B,C  BATBICES  (POS  cbaik-iichoi 
ALPHAaa>DIErH  FOB  COHC  ...  CONDB  FOR  TEHP 
B(MAI)=a>1  poa  COHC  ...  (I  + GAHHA)  FOB  TSIP 


BETBOO) 


B(1)  a 0.0 
C(1)  a -1.0 
8(1)  a 0.0 
BAI  a IBIDB  - 1 
XT2  a 0.5/(ZH»2H) 
DO  100  Ia2,BAX 


PIC00010 

PIC00020 

PIC00030 

FIC00040 

PICOOOSO 

PIC00060 

PIC00070 

IIC00080 

PICOOOSO 

FIC00100 

PIC001 10 

PIC00120 

FIC00130 

PIC00140 

PIC00150 

PIC00160 

EIC00170 

PIC00180 

PIC00190 

PIC00200 

IIC00210 

PIC00220 

PIC00230 

PIC00240 

FIC002S0 

PIC00260 

PIC00270 

PIC0Q280 

IIC00290 

PIC00300 

PIC00310 

PIC00320 

PIC00330 

PIC00340 

PIC00350 

PIC00360 

PIC00370 

PIC00380 

IIC00390 

PIC00400 

PIC004  10 

IIC00420 

IIC00430 

PIC00440 

IIC004S0 

FIC0Q460 

EIC00470 

PIC00480 

PIC00490 

PIC00500 

ricoos  10 

PIC00520 

PIC00530 

PIC00540 

PIC00550 

PIC00S60 

1IC00570 

PIC00580 

IIC00590 

PIC00600 

PIC006  to 

PIC00620 

FIC00630 

PIC00640 

FIC00650 

FIC00660 

FIC00670 

FIC00680 

FIC00690 

PIC00700 

PIC00710 

PIC00720 

FIC00730 

FIC00740 

FIC00750 

FIC00760 

FIC00770 

PIC00780 

FIC00790 

PIC00800 
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100 


ZI  « I-t 

A (I)  « II2  • {0.5/ZI  - 1.0) 

C(I)  • -1.0  » II2  • (0.5/21  ♦ 1.0) 

COBTIHOE 

l(SIIOE)  > -1.0 


C STAHT  LOOP  POP  HiaCHIBG  DOB8  HBICTOB 
2PBIST  » 0.0 
250  COBTIHDE 

2 « 2 ♦ 2L 

ZPBIHT  » 2PBIH2  ♦ 2L 
IPI2PBIST  .IT.  2BBITS)GOTO  255 
BBITE(6,2020)  2 
BBIIJ (6,2030) 

255  COHTUOB 
C COaCBITBAIIOa 

A(aaioB)  > -1.0 
B(aaiDE)  >1.0 
B(ailDB)  > 0.0 
B(1)  » 0.0 
B(1)  » 1.0 
C(1)  « -1.0 

TT  « 0/2L  - DIFPB/ (28*28) 

II  > 0/2L  ♦ DirfB/ (28*28) 

E80LI  » (1.0-BBED)/BBED 
CCAH(1)  > C(1) 

811  « BBIDE  - 1 
DO  300  I»2,8AI 
AClLl(l)  » DIPJB*1(I) 

CCAll(I)  - DIPPB*C(I) 

B(I)  * II 

a (I)  > -1.0*E80LT  * aiT2(  TOLD  (I),  COLD  (I),  LIBIT) 

300  cdaiiaaB*^^  ~ acall(I)  *cold  (i-i)  ♦ ii*cold(I)  - ccall 

ICILL(BBIDE)  > l(aaiOE) 
c 

c aOB,  GET  SOLDTIOa  TECTOB 

ccc  aaiTZ(6,3ooo)  (cold  (i)  ,i»i,aiiDB) 

CALL  T81DAG  (ACALL,  B,  CCALL,  B,  BBIDE,  COLD,  CBEB) 

CCC  BBITE  (6,3000)  (CBEB  (I)  ,l>1 , BBIDE) 

C TEBPBBATDBB 

GAB8A  » BB/COaOB  * 28 
B(1)  » 0.0 
B (1)  >1.0 
C(l)  = -I.O 

B (EBIDE)  « 1.0  ♦ GA88A 
5BOCP  > BHO»CP 

H(SBIDE)  » GAaaA»TBALL  * HBOC? 

CCALl(l)  > C(l) 

II  * 0/2L  - CCBDH/ (28*28) 

II  * D/2L  ♦ COBDB/ (28*28) 

DO  350  I«1, BBIDE 
TCALL(I)  « TOLD  (I)  *BaOCP 
350  COBTIaOB 

BAI  • BBIDE  -1 
DO  BOO  I>2,BAI 
ACILL(I)  > COBDB*!  (I) 

B(I)  » IX 

CCALL  (I)  > C0BDa*C(I) 

B(l)  > DELa*EBOLT  • BAIE(  TOLD(I),  COLD  (I)  , LIBIT) 
a (I)  » a (I)  - ACALL(I)  *TCALL  (I- 1)  ♦ II*TCALL(I) 

8(1)  • 8(1)  - CCALL  (I)  *TC1LL  (1*1) 

BOO  COBTiaOE 
C 

C GET  SCIDTIOS  TECTOB 

CCC  B8ITE  (5,  3000)  (TOLD  (I)  , 1=  I , bbidE) 

CALL  THIDAG  (ACALL,  B,  CCALL,  a,  BBIDE,  ICALL,  TBEB) 
CCC  »aiTE  (6,3000)  (TBEB  (I)  ,I>1, BBIDE)  ' 

C COBTEHT  BACE  TO  BEAL  TEaPEaiTOBES 
DO  450  I»1, BBIDE 
TBEW(I)  > TBEB  (I) /8HOCP 
450  CCBIIBOB 

CCC  BHITE(6,3000)  (TBEB  (I)  , I>  1 , SBIDB) 

C CALC  BOLE  TALOES,  CAT  TE8PS,  ABO  BATES.  BBITE  BESDLTS 
C BO  SEED  TO  DO  THIS  IP  SOT  II8B  TO  PBIST  OOT  lESOLTS 
IP  (ZPHIBT  .LT.  2BBITE)GOTO  550 
C BESET  2PRIST  ABO  TBEB  BBITE  SESOLTS... 

2PBIBT  >0.0 
CSD8  > 0 


picooaio 
PIC00820 
EIC00830 
PIC00S4O 
EIC00850 
PIC00860 
IIC00870 
FIC00880 
PIC00890 
PIC00900 
PIC00910 
FIC00920 
PIC00930 
PIC00940 
IIC00950 
PIC00960 
. IIC00970 
PIC00980 
IIC00990 
PICO  1000 
IICO  1010 
PICO  1020 
PICO  1030 
PIC01040 
PIC01050 
PIC01060 
PIC01070 
PIC01080 
PICO  1090 
PIC01100 
PICO  11 10 
PIC01120 
(I)  *COLD  (1*1)  PICO  1130 
PIC01140 
P1C01150 
PICO  1160 
PICO  1170 
PIC01180 
PICO  1190 
IICO  1200 
PIC01210 
IICO  1220 
PIC01230 
IICO  1240 
IICO 1250 
PICO  1260 
PIC01270 
PICO  1230 
PIC01290 
P1C013Q0 
PIC01310 
IICO  1320 
PICO  1330 
IIC01340 
PICO  1350 
IICO  1360 
PICO  1370 
IIC01380 
IICO  1390 
PICO  1400 
IICO  1410 
PIC01420 
IIC01430 
PICO  1440 
PIC01450 
PIC01460 
PICO  1470 
PICO  1480 
PIC01490 
PICO  1500 
PIC01S10 
IICO  1520 
PIC01530 
PICO  1540 
PIC01550 
PICO  1560 
PIC01570 
PICO  1580 
PIC01590 
PICO  1600 
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Tsoa  » 0 
Rsaa  > 0 
BGLO  > 0 
OBLa  > za 
DO  500  I«2,aaiDE 
aaia  • bold  Data 
ABZ*  • aaEB»aaBB  - bold'bold 
csoa  » csoa  ♦ aaEB*caEB(i)  ♦ soLD»caEB(i-i) 
TSOa  ■ TSOB  ♦ SBEB*TaEB(I)  ♦ B0LD*7HBB  (I- 1) 
BGLOa  • BBOLI  * BATE  ( TBEB (I)  .CBEB  (I)  , LIBIT) 
TOl  - ABBA  » ZL  • 3-  1i»16 
BSLOB  > aSLOB  * TOL 
TSOL  - TCAT(  TaBB(I),CBBB(I),  LIBIl) 
BHIT2(6,20i|0)I,  CBEB(I),  TBEB(I),  TSOL,  BSLOB 
BSOa  a BSOB  * BSLOB 
C SATE  OLD  TALOES 
BOLD  • BBBB 
500  CCBTIHOB 


CBOLK  ■ DELE  • CSOB  / (DT«0t*0.25) 
TBOLB  • DELS  * TSOB  / (DT*DT»0. 25) 
BIOT  > BSOB 

BaiTE(6,2050)CB0LX,  TBOLX,  BIOT 
COST  • 1.0  - CBOLK/CIB 
BBITI(6,2060) COST 

0 

550  COSTIHOE 
C SATB  IBTO  ’OLD*  TBCTOBS 
DO  600  Ia1,BBI0E 
COLD  (I)  • CBEB(I) 

TOLD  (I)  » TBEB(I) 

600  COBTIBOE 

1E(Z  .LT.  ZBA1)S0T0  250 


20  10 
2020 
2030 
2040 
2050 
2060 
C3000 


c roaaATS.  . - 

2000  F0RaAT(5(’  »•),'  FICX20  F0BTBAB',5(’  ••)  ) 

FOHBATC  BB»',B13.6,’  TBALL  (DEG-A)-’ , BU.  6) 

FOBBAK’  z (Ca)  »’,E13.6) 

FOBBAK’  I’,  51, ’COSC*  ,111, ’TBaP’.nx, ’TCAT’,  1 1X, ’HATE  laOL/S)  •' 
FCBBAT(I5,  «(2X,B13.6)  ) • \ f , , 

FOBBATC  CBOLK-’, E13.6,  • TBOLX- ’,  E13.  6,  • TOTAL  BATE- ’, El  3- 6) 
FOBBAK’  C0BTBaSI01l-’,E13.6) 

FCBBAT  («  (2X,B13.6)} 

STOP 
BBO 

SOBBOOTIBE  TBIDAG {A,B,C , B, HBIDE,XOLD,XBEB) 
laPLlCIT  BEAL»a  (A-a,0-2) 

BOTE— OBLT  DlaEBSIOBBD  FOB  20  BAOIAL  DIVISICBS 
FOLLOIS  FLQB  CBABT  SITES  BI  HOBSBECK 
SBIDE — 7ECT0B  LESGTB 
OTHEB  aOTATIOS — SEE  BOEBBBCX 

OIBESSIOB  A(21),  B(21),  0(21),  B(21) 

DISEBSIQB  I0LD(21),  IHB»(21),  AA(21),  BB(21) 

A(1)  - 0.0 
C(HIIDE)  -0.0 
DO  50  I-1,S*IDE 
AA(I)  - A(I) 

BB(1)  - B(I) 

IBE*(I)  » XOLD(I) 

COBTIBOE 

AA(BBIDZ)  » AA  (KBIOE)/B(RBIOE) 

Ba(a«IDE)  - SB  (HHIDE)/B  (HIIDE) 

CALC  ISTBBaEDIATE  TABIABLBS 
DO  100  I=2,HBIDE 
J - BilDB  -1*2 

TEBP  • 1.0/(  B(3-1)  - 1A(J)*C(J-1)  ) 

AA  (J-1)  - AA(J-I)  » TE8P 

RB(J-I)  - ( RB(J-I)  - C(J-1)»SB(J)  )»TEaP 
COIIIBOE 


50 


100 

C 


200 


SOB,  SOIOTIOB  TECTOa 
XBEI(1)  - BB(1) 

DO  200  I-2,SWIDE 

IBE»(I)  • BB(I)  - AA  (I)  »XHE*  (1-1) 

COBTIBOE 

BETOBB 

ISO 

FOBCTIOB  BATE  (T,C,LiaiT) 
laPLICIT  BEAL»8  (A-H,0-Z) 

coaacB  /axs/  oecat,  tpsp,  delb,  bp,  zxo,  sg,  cib 
CALC  SOLID  Tsap  FBOB  UBSABIZBD  FOBa 


FICQ1610 
EICO  1620 
FIC01630 
EIC01640 
FIC01650 
IICO  1660 
FIC01670 
FICO  1660 
FICO  1690 
IICQ1700 
FICO  1710 
IIC01720 
FICO  1730 
FIC01740 
FICO  1750 
FIC01760 
FICO  1770 
• FICO 1780 
FICO  1790 
FICO 1800 
IICO  1810 
FICO 1820 
FICO 1830 
FIC01840 
FIC01850 
FICO  1860 
FIC01870 
FIC01880 
FIC01890 
IICO  1900 
FIC01910 
IICO  1920 
FIC01930 
IICO  1940 
FIC01950 
IIC01960 
FICO  1970 
IIC01980 
FICO  1990 
FIC02000 
IIC02010 
FIC02020 
IIC02030 
FIC02040 
FIC02050 
FIC02060 
FIC02070 
FIC02080 
f IC02090 
FIC021QO 
IIC021 10 
FIC02120 
FIC02130 
FIC02140 
FIC02150 
FIC02160 
FIC02170 
FIC02180 
FIC02190 
FIC02200 
FIC02210 
IIC02220 
IIC02230 
FIC02240 
FIC02250 
FIC02260 
IIC02270 
FIC02280 
FIC02290 
FIC02300 
IIC02310 
FIC02320 
FICO 2330 
FIC02340 
FIC02350 
FIC02360 
FIC02370 
FIC02380 
FIC02390 
IIC02400 
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50 


100 

1000 


TSCl  - TCAT  (T.C.LIaiT) 

I?  ( C .GT.  (0. 00  1 »CIH)  1 GOTO  50 
SATZ  » 0 
GOTO  1000 
COSTISD! 

IFdIBIT  .SB.  0)GOTO  100 
THIS  SBCTIOH  BCH  SO  DirFOSIOtl  LIHIIATIOHS.. . 

HATB  « C • IB(ISOl) 

GOTO  1000 
COHTISDE 

SATI  » (C/TPSP)  • DSQST(  DBCAT*XS  (ISOt)  ) 

BSTOBIf 
EBD 

POBCTIOS  TClT(T,C,irsiT) 

IHPIICIT  aEAL»8  (A-a,0-Z) 

SG,  CIS 

IP  (C  .GT.  (0.  0 1 •CIS)  ) GOTO  30 
DBtl  » 0.0 
GOTO  200 
COITISOB 
IP  (LIBIT  .SB.  0)  GOTO  »0 
C THIS  SBCTIOH  POH  HO  DIPP* H LIBITATIOHS 
XX  • DBia  » XK(T)  • C • TPSP 
XX  • HP  / XI 
IT  « GG/(T»T) 

DELI  « 1.0/(IX-TI) 

C TEST  SHALL  DBLTA-T  POB  T3ST  CASE 
CCC  DBLT  • 2.0 

CCC  GOTO  50 

»0  COHTIHOB 


30 


XX  ■ oELa  * c » DsgaT{  dbcat»xk(T)  i 

XX  • BP/XX 

II  » GG»0.5/(T*T) 

DBLT  ■ 1.0/(XX-II) 

50  CCSTIHOE 

IP  (DBLT  .GT.  0.0)GOTO  200 

P8CBLBHS  IH  BEBE.. . 

• BITE  (6, 100) 

100  POHHATC PG8  ABOBT  IH  POHC  -TCAT •,/. 

' STABILITI  OB  LIBEABIZ  PBOBLEBSl  I ! I I TM 

STOP  ' 

200  COITIHOE 

TCAI  » T ♦ BELT 

BETOBH 

BSD 

POaCTIOH  XX (T) 

IHPLICIT  BEAL»a  (A-H,0-Z) 

COaaCH  /HXH/  decat,  TPSP,  DELH,  HP,  ZXO,  GG,  CIS 
XX  » ZXO  / DEXP(  GG/T  ) t , -l 

HEIOBH 
BHD 


Eicoimo 

11002020 

EIC02030 

EIC02040 

FIC02050 

IIC02060 

PIC02070 

11002080 

PIC02090 

PIC02500 

PIC02510 

IIC02520 

PIC02530 

IIC02500 

PIC02550 

EIC02S60 

IIC02S70 

PIC02S80 

EIC02590 

PIC02600 

11002610 

EIC02620 

EIC02630 

PIC02600 

FIC02650 

FIC02660 

FIC02670 

IIC02680 

FIC02690 

FIC02700 

FIC02710 

HC02720 

FIC02730 

IIC02700 

FIC02750 

FIC02780 

FIC02770 

FIC02780 

FIC02790 

FIC02800 

FIC02810 

FIC02820 

IIC02830 

IIC02800 

IIC02850 

FIC02360 

EICO207O 

PIC02380 

IIC02830 

FIC02900 

FIC02910 
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